Dialer

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