Private Sub Form_Load()
 
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
 
strInput = Empty
 
End If
 
End Sub

Private Sub MSComm1_OnComm()
 
Select Case MSComm1.CommEvent
 
    Case comOverrun
      MsgBox "Datenverlust! - Karte erneut auflegen"
 
    Case comRxOver
      MsgBox "Datenverlust! - Karte erneut auflegen"
 
    Case comEvReceive
      strInput = MSComm1.Input
 
      strInput = Mid(strInput, 2, 5)
 
txtsuche.Text = CStr(strInput)
frmKartenHinzu.txtAktuell.Text = CStr(strInput)
 
End Select
 
End Sub

Mfg MyD