Hi,

Why does'nt the the codes below work? It compiled and accepted input phone number..

A modem (with Tone Dial) was connected to COM1 but did not dial out??



Option explicit
Dim pNumber As String

Private Sub Form_Load()
pNumber = Inputbox("Number to dial:")
Open "COM1" For Output As 1
Print 1, "ATDT" & pNumber & Chr$(13)
Close 1
End sub