wenn textbox3 leer dann mach nichts

Private Sub TextBox3_Change()
Dim Zelle As Range, Adresse As String
ListBox3.Clear
With Workbooks("Blanko0.xls").Sheets(3).Range("A2:G9999")
Set Zelle = .Find(What:=TextBox3.Value, LookAt:=xlPart)
If Not Zelle Is Nothing Then
Adresse = Zelle.Address
Do
ListBox3.AddItem Zelle.Value
ListBox3.List(ListBox3.ListCount - 1, 1) = Zelle.Row
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address <> Adresse
End If
End With
If Adresse <> "" Then Call sortieren3(0, ListBox3.ListCount - 1)
End Sub

Dim strEingabe$
If strEingabe = "" Then Exit Sub