Array mit Prozedur ohne Dupletten füllen

Sub ergaenzeArray(strArray() As String, strWert1 As String, strWert2 As String)
Dim blnNeu As Boolean
Dim i As Long
blnNeu = True
For i = 0 To UBound(strArray)
If strArray(i, 0) = strWert1 Then
blnNeu = False
Exit For
End If
Next i
If blnNeu = True Then
If strArray(0, 0) = "" Then
strArray(0, 0) = strWert1
strArray(0, 1) = strWert2
Else
ReDim Preserve strArray(0 To i, 0 To 1)
strArray(i, 0) = strWert1
strArray(i, 1) = strWert2
End If
End If
End Sub

Call ergaenzeArray(strArrFilterKategorien(), "Test", "Tralalla"