Also die 4 Zeilen habe ich nun mit MID aufgeteilt. Habe beim probieren gemerkt das man direkt auf das LCD schreiben kann Bild  

Code:
'RS232 - Empfang umwandeln
If E_flag = 1 Then                                          'Empfangsstring komplett
Print Parameter
Cls
Locate 1 , 1
Lcd Mid(Text , 1 , 20)
Locate 2 , 1
Lcd Mid(text , 21 , 20)
Locate 3 , 1
Lcd Mid(text , 41 , 20)
Locate 4 , 1
Lcd Mid(text , 61 , 20)

Text = ""                                                   'Parameter löschen
E_flag = 0                                                  'Empfang neu setzen

End If

Loop


'-------------------------------------------------------------------------------
Onrxd:

E_byte = Udr

If E_byte = 13 Then                                         '13 = CR (Enter)
E_flag = 1
Else
Text = Text + Chr(e_byte)
End If

Return
Leider funktioniert das nur in den 1ten 3 Zeilen und in der zweitenzeile ist immer noch dieser Fehler das ein Zeichen fehlt also 12"4567