Hey spelli. So sollte es eig gehen:

Dim Dollarzeicheneingang As Byte 'Beginn des Datenstrings mit Dollarzeichen
Dim Teildaten(14) As String * 12 ' Array mit den extrahierten Daten
Dim Anzahl As Byte
Dim Datenstring As String * 98
Dim Datenkopf As String * 6







Do
Dollarzeicheneingang = Inkey()
If Dollarzeicheneingang = 36 Then Input Datenstring Noecho '36 ist das Dollarzeichen
Datenkopf = Mid(datenstring , 1 , 5)

If Datenkopf = "Ground" Then
Cls
Anzahl = Split(datenstring , Teildaten(1) , "#") '# Trennzeichen der Daten
Datenstring = ""



'Dann kann man sich die extrahierten Datenstücke einzeln anzeigen lassen

' Beispiel:
Locate 2 , 1
Lcd Teildaten(3)



End If
Loop
End