Private Function Split(ByVal sInpString As String, ByVal sTrenn As String) As _
  Variant
      Dim ErgVar() As String
      Dim i As Long, n As Long, m As Long
      Dim tmpW As String
      If Len(sInpString) = 0 Then Exit Function
      If sTrenn = "" Then Exit Function
      For i = 1 To Len(sInpString)
           If Mid(sInpString, i, 1) <> sTrenn Then
                 tmpW = tmpW + Mid(sInpString, i, 1)
                 n = n + 1
           Else
                 ReDim Preserve ErgVar(m + 1)
                 ErgVar(m) = tmpW
                 tmpW = ""
                 m = m + 1
           End If
      Next
      If n < Len(sInpString) Then ErgVar(m) = tmpW
      Split = ErgVar()
End Function