Private Sub MSComm1_OnComm()
    '//Reaktion auf eingehende Daten
    Select Case MSComm1.CommEvent
       Case comEvReceive
          With txtRxData
            .SelStart = Len(.Text)
            .SelText = MSComm1.Input
          End With
          If InStr(1,  txtRxData.text, vbCR) > 0 Then
             '//=>Antwort auswerten
          End If
    End Select    
End Sub

Tschaui
Woellmi