Code übersetzen

Private Sub TextBox1_Change()
Dim arr() As Variant
Dim index As Long, iCount As Long
x = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
If TextBox1.Value = "" Then
ListBox1.RowSource = "A5:B" & x
Exit Sub
End If
ListBox1.RowSource = ""
ListBox1.Clear
For index = 5 To x
If LCase(Left(Cells(index, 1), Len(TextBox1))) = LCase(TextBox1) Then
If Sheets("Tabelle1").Cells(index, 1)  "" Then
ListBox1.AddItem Cells(index, 1)
ListBox1.List(iCount, 1) = Cells(index, 2)
'                On Error Resume Next
'                ReDim Preserve arr(0, 0 To iCount)
'                arr(0, iCount) = Cells(index, 2)
'                 ListBox1.Column = arr
iCount = iCount + 1
End If
End If
Next
End Sub

Vielen Dank im voraus
Gruß
Ahmadian