Jerry,

Try this in the MSCOMM Init:

This.CommPort = 3
This.Settings = "57600,n,8,1"
This.InputLen = 0
This.InBufferCount = 0
This.PortOpen = .T.
This.Output = "ATZ" + CHR(13)

You may also need to set DTREnable and RTSEnable to .T., and Handshaking to 2 depending on your modem. Now in your command button "Dial" put:

Thisform.Olecontrol1.Output = "ATDT[numbertodial]" + CHR(13)

Anytime you send a modem command you have to wait a bit for it to respond.