Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
    Case comOverrun:   MsgBox "Datenverlust!"
    Case comRxOver:    MsgBox "Datenverlust!"
    Case comEvReceive: Me.txtInput = Me.txtInput + MSComm1.Input
                       if instr(1,Me.txtInput,Chr$(13))<>0 then 
                        'Hier jetzt weiterverarbeiten, aber Vorsicht: Es 
                        ' könnten schon Bytes 
                        'vom nächsten Datensatz im Buffer stehen!
                        'Evtl. statt auf Chr$(13) sogar auf das "OVER" warten
                       end if
  End Select
End Sub