Private Sub Command1_Click()
MSComm1.Output = "ATDT " & Text2 & "" & vbCr
End Sub
 
Private Sub Form_Load()
With MSComm1
  .CommPort = 3
  .Settings = "9600,N,8,1"
  .PortOpen = True
End With
End Sub
 
Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
    Case comOverrun
      MsgBox "Datenverlust!"
 
    Case comRxOver
      MsgBox "Datenverlust!"
 
    Case comEvReceive
      Text1.Text = MSComm1.Input
  End Select
End Sub

http://www.c-a-club.de