Private Sub Command1_Click()
 
    MsgBox ReadVar("blablabla")
    MsgBox ReadVar("blabla")
    MsgBox ReadVar("bla")
 
End Sub
 
Private Function ReadVar(sVarName As String) As String
 
    Dim sText As String
        sText = "|blablabla|123456789012345678=" & vbNewLine & _
                "|blabla|12345678901=" & vbNewLine & _
                "|bla|123456789="
 
    Dim sVarPosStart As Integer
    Dim sVarPosStop As Integer
 
        sVarPosStart = InStr(sVarPosStart + 1, sText, "|" & sVarName & "|")
        If (sVarPosStart > 0) Then
            sVarPosStop = InStr(sVarPosStart + 1, sText, "|")
            If (sVarPosStop > 0) Then
                sVarPosStop = sVarPosStop + 1
 
                Dim sValuePosStop As Integer
                    sValuePosStop = InStr(sVarPosStart, sText, "=")
                    If (sValuePosStop > sVarPosStart) Then
                        sValuePosStop = sValuePosStop + 1
                        ReadVar = Mid(sText, sVarPosStop, sValuePosStop - ( _
                          sVarPosStop + 1))
                    Else
                        ReadVar = ""
                    End If
            End If
        End If
 
End Function

Mit freundlichen Gr??en,
Andy G.