f = FreeFile
 
    Open "Test.txt" For Input As #f
 
    Do While Not EOF(f)
 
        Input #f, sInstring
 
        If Left$(sInstring, 4) = "0100" And Right$(sInstring, 1) = "1" Then
 
            xyz = Mid$(sInstring, 14, 16)
 
            tabMySQL.Feld1.Value = xyz ' MySQL Tabellenfeld den Wert der 
            ' Variablen xyz zuweisen
 
        End If
 
    Loop
 
    Close #f

Klug ist, wer andere durchschaut,
weise, wer sich selbst durchschaut.
[Laotse]