Kann man das zusammenfassen

Sub ListeAlle_fuellen()
lstAlle.Clear
For i = 2 To intLetzteZeile
tmpArr = Split(wsWerte.Cells(i, 3), ",")
If UBound(tmpArr)  -1 Then
For j = 0 To UBound(tmpArr)
If Trim(tmpArr(j)) = Me.CmbGruppierung.Text Or Me.CmbGruppierung.Text = "" Then
If InStr(1, UCase(wsWerte.Range("A" & i).Value), UCase(TxtSuchwort.Text)) Then
lstAlle.AddItem wsWerte.Cells(i, 1)
End If
End If
Next j
Erase tmpArr
Else
If Me.CmbGruppierung.Text = "" Then
If InStr(1, UCase(wsWerte.Range("A" & i).Value), UCase(TxtSuchwort.Text)) Then
lstAlle.AddItem wsWerte.Cells(i, 1)
End If
End If
End If
Next i
End Sub

Dieser schaut in Spalte C nach Gruppen, die mit Komma getrennt sind und füllt eine Listbox mit allen Werten aus Spalte A, die einer evtl. gewählten Gruppe angehören und/oder einen Suchstring enthalten.
Wenn in einer Zeile in Spalte C nichts steht, macht er in der Schleife For j = 0 To UBound(tmpArr) nichts (klar, gibt ja kein Array), deshalb habe ich eine weitere Schleife If UBound(tmpArr) -1 drum herum gelegt.
Kann man das einfacher lösen?
Danke und Gruß
Specke