Listbox null-Werte vorhanden Problem

Private Sub cmd_Datumsfilter_Click()
Dim i As Long, maxlen As Long, Li As Long, ii As Long, LC As Long
Dim str As String, str2 As String, arr As Variant
Dim Startdatum As Date, Enddatum As Date
'geändert auf CDate(UserForm4.tbx_Startdatum)
'in einer Textbox steht Text der wird mit
'CDate in ein Datum gewandelt
Startdatum = CDate(UserForm4.tbx_Startdatum)
Enddatum = CDate(UserForm4.tbx_Enddatum)
maxlen = 35
With ListBox1
.Clear
.ColumnCount = 8
.ColumnWidths = "3cm;6cm;3cm;3cm;3cm;0cm;0cm;0cm"
'hier geändert von i=9 auf i=10 (ohne die Kopfzeilen)
'Spaltenbeschriftung über Label
'    For i = 10 To Cells(Rows.Count, "B").End(xlUp).Row
For i = 11 To Cells(Rows.Count, "B").End(xlUp).Row          '11=ohne Saldozeile
Li = i - 9
str = Cells(i, 3)
'Datumsprüfung
If CDate(Cells(i, 2)) >= Startdatum And CDate(Cells(i, 2))  9 Then
If str = "" Then str = " "
arr = Split(str, " ")
str2 = arr(0)
For ii = 1 To UBound(arr)
If Len(str2 & arr(ii)) + 1