In Textbox suchen - nicht nur erster Buchstabe

Private arrList As Variant
Private Sub TextBox1_Change()
Dim i As Long, k As Long, arrOut() As Variant
k = -1
For i = LBound(arrList) To UBound(arrList)
If LCase(arrList(i)) Like TextBox1.Value & "*" Then
k = k + 1
ReDim Preserve arrOut(k)
arrOut(k) = arrList(i)
End If
Next
If k 

Private Sub UserForm_Initialize()
With Tabelle1
arrList = WorksheetFunction.Transpose(.Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).  _
_
Row))
End With
ListBox1.List = arrList
End Sub