Fehlermeldung

Sub suchen()
Dim strText As String
strText = InputBox("Name?")
If strText "" Then
Cells.Find(What:=strText, After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlPart,  _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Activate
End if
End Sub

den eingegebnen String in meinem Arbeitsblatt. der dann aktiviert wird. Klappt soweit auch ganz gut. Aber wenn ich mich verschreibe oder der Suchtext nicht vorhanden ist, kommt die VBA-Fhlermeldung Objekt- oder Withblock-Variable nicht festgelegt. Kann man diese Fehlermeldung unterdrücken bzw. diesen Fehler durch Modifikation des Makros garnicht erst entstehen lassen?
Gruss
Chris