Hallo Tom,
ich hab das jetzt so gelöst: (mit viel Online_Hilfe)

Private Sub MSComm1_OnComm()

If MSComm1.CommEvent = comEvReceive Then
Data = MSComm1.Input
Data1 = AscB(Mid$(Data, 1, 1))
Data2 = AscB(Mid$(Data, 2, 1))
.
.
.
End If
Das funktioniert aber nur wenn ich MSCOMM auf InputmodeText stelle!?

Bei Deiner Variante bekomme ich den Fehler "Type unverträglich"

Dim Data1 As Variant
Dim echo AS Variant
...
Private Sub MSComm1_OnComm()

If MSComm1.CommEvent = comEvReceive Then

echo = MSComm1.Input
Data1 = echo(0)

mach ich da was falsch, oder muss da noch was bei?

; nicht einfach für ein VB-Anfänger auf der Welt