Dim Buffer As Variant
Dim Arr() As Byte
Dim Dezimal As Integer
Dim Ausgabe As Variant
Dim SendData(9) As Byte
 
'Initialisierungs Byte Folge erstellen
SendData(0) = 96
SendData(1) = 224
SendData(2) = 32
SendData(3) = 0
SendData(4) = 50
SendData(5) = 64
SendData(6) = 61
SendData(7) = 224
SendData(8) = 143
SendData(9) = 224
Ausgabe = SendData
 
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
Do
    dummy = DoEvents()
 
    MSComm1.Output = Ausgabe 'Initialisierungs Byte als Variant/Byte Array 
    ' senden
 
    If MSComm1.InBufferCount Then
        Buffer = MSComm1.Input
        Arr = Buffer
        Text1.Text = Text1.Text & Hex(Arr(0))
    End If
 
    ' Hat der Benutzer 'Abbrechen' gewählt?
    If CancelFlag Then
        CancelFlag = False
        Exit Do
    End If
Loop