' Hilfsroutine: String bis Trennzeichen zurückgeben
' und gleichzeitig Originalstring am Trennzeichen links
' abschneiden
Public Function sSplit(sText As String, _
  Optional ByVal Trenn As Variant) As String
 
  Dim sPos As Long
 
  ' Ist kein Trennzeichen angegeben: vbTab
  If IsMissing(Trenn) Then Trenn = vbTab
 
  sPos = InStr(sText, Trenn)
  If sPos > 0 Then
    sSplit = Left$(sText, sPos - 1)
    sText = Mid$(sText, sPos + 1)
  Else
    sSplit = sText: sText = ""
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de