Thanks for your help Mr Taps. It works for me with small correction. I hope the below is the final issue from my side to close this topic.

I have posted my script in post#1. I am looking for a value i.e. Visa No (Column B Values) in a active sheet only. I want to check the visa no complete workbook and display a message as below. For your suggestion and correction please.

Here is the code:
'Check if Visa No exits in database.
    If Not rng.find(TextBox1, , LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ 
    SearchDirection:=xlPrevious, MatchCase:=False) Is Nothing Then
    response = MsgBox("Visa No. '" & TextBox1 & " 'already exits in database" _
    + vbCrLf + " " + vbCrLf + "  - Lets Make Life Easier...", _
    vbOKOnly + vbInformation, "Approval Entry (Date Format Issue)")
    Exit Sub
    End If