SMS to mobiles using Modem

[FuzMic]

Hi members

I would like to send SMS message to mobile phone 6147654321 using VB6 via a generic modem eg Motorola. Can some one who has done it before show a lighted path. Thanks

[FuzMic]

Follow up

On web searching, i think if modem is in Com port 1, form has a msComm1 Control 5.0 (sp2), then using the following codes at the right instance it should do the job. Comments please.

MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True

MSComm.Output = "AT+CMGF=1" & vbCrLf
MSComm1.Output = "AT+CMGS=+6147654321" & vbCrLf
MSComm1.Output = "The Text message"

If InStr(MSComm1.Input, "OK") Then MsgBox "Message Send"