Hallo,

aktuell siehts so aus (ich habe schon verschiedenes versucht)

Gruß und vielen Dank

Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent
Case comOverrun: StatusBar1.Panels(1).Text = "Status: Störung O.V"
Case comRxOver: StatusBar1.Panels(1).Text = "Status: Störung R.O"
Case comEvReceive: eingang = MSComm1.Input
End Select
Text3 = eingang
Text1 = Text1 + Mid(eingang, 1, 1)