Habs grad selbst herausgefunden, trotzdem danke !
Code:
$regfile = "m32def.dat"
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600


Config Serialin = Buffered , Size = 30


Dim Ar(6) As String * 7
Dim Bcount As Byte
Dim Telegramm As String * 30
Dim E_adr As String * 7
Dim E_aktion As String * 7
Dim E_typ As String * 7
Dim E_property As String * 7
Dim E_wert As String * 7
Dim E_check As String * 7
Dim I_wert As Integer
Dim B_wert As Byte
Dim I As Byte

Enable Interrupts
Print "Start"
Do
   'get a char from the UART
   If Ischarwaiting() = 1 Then                              'was there a char?
      Input Telegramm
      Print Telegramm                                       'print it

      Bcount = Split(telegramm , Ar(1) , "!")               'Aufteilen des Telegramms auf Arryes

      E_adr = Ar(1)
      E_aktion = Ar(2)
      E_typ = Ar(3)
      E_property = Ar(4)
      E_wert = Ar(5)
      E_check = Ar(6)


   End If
Loop