Sub dsafasdf()
Set myRange = ActiveSheet.Range("A1:C10")
iskomoe_znacheniye = "123"
On Error GoTo fin
answer = Application.WorksheetFunction.VLookup(iskomoe_znacheniye, myRange,  2 ,  0 )
MsgBox answer
fin:
If Err.Number =  1004  Then
    MsgBox "Ничего не найдено"
Else
    MsgBox "Какой-то другой косяк"
End If
End Sub