Dials a telephone number w/o using APIs

Private Sub Dial(num As String)
 ' Open the com port.
 Communications.PortOpen = True
 ' Send the attention command to the modem.
 Communications.Output = "AT" + Chr$(13)
 ' Wait for processing.
 Do
  DoEvents
  Loop Until Communications.InBufferCount >= 2
  ' Dial the number.
  Communications.Output = "ATDT " + num + Chr$(13)
  ' Takes about 47 sec. to dial
  wait = Timer + 47
  Do
   DoEvents
   Loop While Timer <= wait
   ' Uncomment to disconnect after dialing.
   'Communications.PortOpen = False
  End Sub
Upload