Hallo Günter
Danke für deine Antwort !!

Ich benutze VB 6.0

Ich habe einen Code gefunden mit dem es bis jetzt funktioniert.

Private Sub Form_Load()
' Fire Rx Event Every x Bytes
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
' When Inputting Data, Input y Bytes at a time
MSComm1.InputLen = 1
MSComm1.Settings = "9600,N,8,1"
' Open COM1
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Dim sData As Variant

If MSComm1.CommEvent = comEvReceive Then
sData = MSComm1.Input

empfang = StrConv(sData, vbUnicode)

Text1.Text = Text1.Text + empfang


End If
End Sub



Kannst du mir vieleicht den Teil nochmal erkären.
Ich verstehe das mit dem nicht richtig.

" Dim sData As Variant "

Genauseo wie dieser Code Teil.

empfang = StrConv(sData, vbUnicode)

Ich were dir sehr dankba wenn du mir die beiden Teile kurz erklären könntest.

PAblo