Function ItemExtract(Index As Integer, ByVal Liste As String, ByVal Hochkomma _
  As String) As String
  Dim J As Integer, I As Integer
 
  I = 0: J = 0
  While Index > 0
    I = J
    J = InStr(I + 1, Liste, Hochkomma)
    If J = 0 Then J = Len(Liste) + 1
    Index = Index - 1
  Wend
  If J > I Then
    ItemExtract = Mid$(Liste, I + 1, J - I - 1)
  Else
    ItemExtract = ""
  End If
End Function