Probiers mal damit, war wohl fehlerhaft:

$regfile = "m32def.dat"
$crystal = 1000000
$baud = 4800 'serial ing
Config Serialin = Buffered , Size = 100 ' konfig serial in
Enable Interrupts

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 20 * 4
Cls
Cursor Off

Dim Gelesen As Byte 'dollarzeichen einlesen

Dim Teilstring(14) As String * 12
Dim Anzahl As Byte

Dim Datenstring As String * 98
Dim Header As String * 6
Dim Tempstring As String * 2






Do
Gelesen = Inkey()
If Gelesen = 36 Then Input Datenstring Noecho
Header = Mid(datenstring , 1 , 6)

If Header = "GROUND" Then
Cls
Anzahl = Split(datenstring , Teilstring(1) , "#")
Datenstring = ""



'Test
Locate 3 , 1
Lcd Teilstring(2)


Wait 2
End If
Loop
End