Data Not Found Error Msg Help

[wiginprov]

I have a macro that searches a database for a tax id number. I need an error message if the tax id number is not found. How do I do that? Here is my syntax:


Dim strMessage As String
strMessage = Application.InputBox("ENTER TAX I.D. NUMBER (Example: ###-##-####)", "SEARCH FOR TAX ID#&quot
Let ActiveSheet.Cells(4, 22) = strMessage

Range("A7:A10030&quot.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("V3:V4&quot, Unique:=False


Many thanks.