Private Sub Command1_Click()
 
    MsgBox ReadVar("blablabla")
 
End Sub
 
Private Function ReadVar(sVarName As String) As String
 
    Dim sText As String
        sText = "|blablabla|123456789012345678="
 
    Dim sVarPosStart As Integer
    Dim sVarPosStop As Integer
 
        ' Position von |blablabla| mit 
        ' InStr suchen 
        ' und die Anfangsposition(Wert=1) in sVarPosStart speichern
        sVarPosStart = InStr(sVarPosStart + 1, sText, "|" & sVarName & "|")
        ' Wenn sVarPosStart > 0 |blablabla| also gefunden wurde dann...
        If (sVarPosStart > 0) Then
            ' ...das -Zeichen finden und in sVarPosStop speichern
            sVarPosStop = InStr(sVarPosStart + 1, sText, "|")
            If (sVarPosStop > 0) Then
                sVarPosStop = sVarPosStop + 1
 
                Dim sValuePosStop As Integer
                    ' Und wieder nach irgendwas suchen usw....
                    sValuePosStop = InStr(sVarPosStart, sText, "=")
                    If (sValuePosStop > sVarPosStart) Then
                        sValuePosStop = sValuePosStop + 1
                        ' Hier wird ein Teil aus dem ganzen String mit der 
                        ' Funktion 
                        ' Mid[/ur
                        ' l] herausgezogen
                        ReadVar = Mid(sText, sVarPosStop, sValuePosStop - ( _
                          sVarPosStop + 1))
                    Else
                        ReadVar = ""
                    End If
            End If
        End If
 
End Function

Mit freundlichen Gr??en,
Andy G.