String handling

Dim SplitArray() as string '(Dim verplicht as string)

SplitArray() = Split(TeSplitsenString, "/")
For ArrCntr = LBound(SplitArray()) To UBound(SplitArray())
  If Trim(SplitArray(ArrCntr)) = TestString Then
  ....
  End If
Next