Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Sub Port_oeffnen()
 
With MSComm1
  .CommPort = "1"
  .Settings = "1200,N,7,1"
  .PortOpen = True
End With
 
End Sub
 
Private Sub cmdSart_Click()
 
Port_oeffnen
Timer1.Enabled = True
 
End Sub
 
Private Sub cmdStop_Click()
 
Timer1.Enabled = False
MSComm1.PortOpen = False
 
End Sub
 
Private Sub Timer1_Timer()
 
MSComm1.Output = "73 53 54 0d 06" & vbCrLf
txtSend.Text = "73 53 54 0d 06"
 
Sleep (2500)
 
txtEmpfang.Text = MSComm1.Input
 
End Sub