' Zerlegt ein String anhand eines angegebenen
' Trennzeichens und gibt die einzelne Teilstrings
' als nullbasierendes Array zurück
'
' Wird kein Trennzeichen angegeben, wird als
' Trennzeichen das Leerzeichen angenommen
Public Function Split_String(ByVal inp_str As String, _
  Optional sep As Variant) As Variant
 
  Dim i As Integer
  Dim j As Integer
  Dim ret() As Variant
 
  ' kein Trennzeiche?
  If IsMissing(sep) Then sep = " "
 
  j = 0
  Do
    i = InStr(inp_str, sep)
    If i > 0 Then
      ReDim Preserve ret(j)
      ret(j) = Left$(inp_str, i - 1)
      inp_str = Mid$(inp_str, i + Len(sep))
      j = j + 1
    End If
  Loop Until i < 1
  ReDim Preserve ret(j)
  ret(j) = inp_str
  Split_String = ret
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de