'Rahan
'Diese Function liefert den Teilstring zurück der sich innerhalb eines Textes 
' befindet
Function getTextinString(strText As String, strTextVorDemZeichen As String, _
  strTextNachDemZeichen As String) As String
    Dim X1 As Integer, x2 As Integer
    Dim result As String
    X1 = InStr(strText, strTextVorDemZeichen)
    result = Right(strText, Len(strText) - X1 - Len(strTextVorDemZeichen) + 1)
    x2 = InStr(result, strTextNachDemZeichen)
    result = Left(result, x2 - 1)
    getTextinString = result
End Function