Also hab die daten mal angeschaut und es wird volgendes in Hex gesendet:
16 16 16 16 02 E2 40 87 00 00 00 00 7F 7F 7F 7F 7F 7F 7F 7F 2F AD
Die Markierten Zahlen ändern sich nie.

nun Probierte ich es einfach mal so:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 1200
Open "comc.0:1200,8,n,1" For Input As #2
Dim Daten0 As Byte
Dim Daten1 As Byte
Dim Daten2 As Byte
Dim Daten3 As Byte
Dim Daten4 As Byte
Dim Daten5 As Byte
Dim Daten6 As Byte
Dim Daten7 As Byte
Dim Daten8 As Byte
Dim Daten9 As Byte
Dim Daten10 As Byte
Dim Daten11 As Byte
Dim Daten12 As Byte
Dim Daten13 As Byte
Dim Daten14 As Byte
Dim Daten15 As Byte
Dim Daten16 As Byte
Dim Daten17 As Byte
Dim Daten18 As Byte
Dim Daten19 As Byte
Dim Daten20 As Byte
Dim Daten21 As Byte
Dim Daten22 As Byte
Dim Daten23 As Byte


Do
Cls
Daten0 = Inkey(#2)
If Daten0 = 2 Then
Daten1 = Waitkey(#2)
Daten2 = Waitkey(#2)
Daten3 = Waitkey(#2)
Daten4 = Waitkey(#2)
Daten5 = Waitkey(#2)
Daten6 = Waitkey(#2)
Daten7 = Waitkey(#2)
Daten8 = Waitkey(#2)
Daten9 = Waitkey(#2)
Daten10 = Waitkey(#2)
Daten11 = Waitkey(#2)
Daten12 = Waitkey(#2)
Daten13 = Waitkey(#2)
Daten14 = Waitkey(#2)
Daten15 = Waitkey(#2)
Daten16 = Waitkey(#2)
Daten17 = Waitkey(#2)
Daten18 = Waitkey(#2)
Daten19 = Waitkey(#2)
Daten20 = Waitkey(#2)
Daten21 = Waitkey(#2)
Daten22 = Waitkey(#2)
Daten23 = Waitkey(#2)

'usw....
Printbin Daten1 ; Daten2 ; Daten3 ; Daten4 ; Daten5 ; Daten6 'usw.....
End If

Loop

Dies klappt zu 50% einzelne Zahlen in der Mitte stimmen einfach nicht