Listbox Uhrzeit richtig darstellen

Private Function Array_Prüfen(ByVal txt As Control, ByVal Spalte As Integer) As Variant ' _
XXXXXXXXXXX
Dim i As Long, j As Long
Dim r As Long
Dim arr() As Variant
Dim y As Boolean
For i = LBound(arrTmp) To UBound(arrTmp)
If LCase(arrTmp(i, Spalte)) Like "*" & LCase(txt.Text) & "*" Then
ReDim Preserve arrT(0 To 15, 0 To r)      '15 statt 3
ReDim Preserve arr(1 To 16, 1 To r + 1)   '16  statt 4
y = True
For j = 0 To 15   '15 statt 3
arrT(j, r) = arrTmp(i, j + 1)
arr(j + 1, r + 1) = arrTmp(i, j + 1)
Next j
r = r + 1
End If
Next i
If y Then
Erase arrTmp
arrTmp = WorksheetFunction.Transpose(arr)
ListBox1.Clear
If UBound(arrT, 2) = 0 Then
ReDim arr(0, 15)  '15 statt 3
For i = 0 To 15    '15 statt 3
arr(0, i) = arrT(i, 0)
Next i
ListBox1.List = arr
Else
Array_Prüfen = WorksheetFunction.Transpose(arrT)
End If
Else
MsgBox "Keine passenden Daten zu den Kriterien gefunden !"
txt.Text = ""
txt.SetFocus
Array_Prüfen = ListBox1.List
End If
End Function