Dim old As Integer
Dim eingang As Integer
 
Private Sub MSComm1_OnComm()
  If MSComm1.CommEvent = comEvRecieve Then
    eingang = MSComm1.Input
    If eingang <> old Then 
      Text1.Text = CStr(Val(Text1.Text) + 1)
      old = eingang
    End If
  End If
End Sub

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008