Visual Basic - envio de sms con visual basic 6.0

Compañeros
cordial saludo

estoy desarrollando una aplicacion en visuall basic la cual debe enviar una notificacion al usuario en su telefono celular y estoy usando un modem de 3.5g marca Zte Mf 626 el cual esta conectado al puerto com 18
lo que pretendo hacer es que cuando un registro sea procesado se envie un registro de la informacion al cliente final
y parra lo cual estoy utilizando el siguiente codigo

Private Sub Command1_Click()
'estas lineas de codigo deben enviar una conexcion atdt por el puerto 2
'MSComm1.CommPort = 18
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
'con esta linea de codigo debe enviar este mensaje
'colocar un ciclo para que envie sms a todos los registrso de la base de datos
MSComm1.Output = "AT+CMGS=" + "3103642923" + "hola como estas"
'MSComm1.Output = "ATDT123456789" + Chr(13)
MSComm1.PortOpen = False
End Sub

cuando trato de enviar el sms me sale un error de puerto

les agradezco su oportuna colaboracion en este tema }

o si tienen un mejor scrip se los agradeceria

Jorge, ha pasado mucho tiempo ya de tu post, yo me encuentro con el mismo inconveniente en este momento.
Has podido solucionarlo?
El hiperterminal daría la impresion que lo reconoce y los comandos at son respondidos pero no puedo enviar mensajes, desde visual no he podido hacer nada. el código ese si funciona con modems 3g serie.
Desde ya, agradezco tu respuesta, muchas gracias.
sds
Sergio