Public Function ExtractString(sString As String, sDelimiter As String, iNo As _
  Integer) As String
Dim i         As Integer
Dim lStart    As Long
Dim lEnd      As Long
 
  On Error GoTo FAULT
 
  lStart = 1
 
  ' Beginn des Teilstrings bestimmen
  For i = 2 To iNo
    lStart = InStr(lStart, sString, sDelimiter)
    If lStart = 0 Then Exit For
    lStart = lStart + Len(sDelimiter)
  Next i
 
  ' Ende des Teilstrings bestimmen
  If lStart Then
    lEnd = InStr(lStart, sString, sDelimiter)
    If lEnd = 0 Then lEnd = Len(sString) + 1
    ExtractString = Mid(sString, lStart, lEnd - lStart)
  End If
  Exit Function
 
FAULT:
  Call Err.Raise(Err.Number, , "ExtractString: " & Err.Description & "; iNo = " _
    & iNo)
 
End Function