Private Sub Form_Load()
With MSComm1
    .CommPort = 1
    .Settings = "57600,n,8,1"
    .RThreshold = 5
    .SThreshold = 1
    .InputLen = 0
    End With
    MSComm1.PortOpen = True
    MSComm1.DTREnable = False
End Sub

Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
    Case comOverrun:   MsgBox "Datenverlust!"
    Case comRxOver:    MsgBox "Datenverlust!"
    Case comEvReceive
        Spannung_s = MSComm1.Input
        Länge = Len(Spannung_s)
        Me.Text1 = Me.Text1 + Spannung_s
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Spannung_s = Replace(Spannung_s, vbLf, "")
Spannung_s = Replace(Spannung_s, vbCr, "")