Hi,
I am using Nokia 3230 model and VB express edition.Im new to VB.Im trying to develop an application to send a SMS. I am using Nokia SMS adapter api for sending sms. I am attaching my code below. It is not giving any error, but it is not sending the SMS also.I tried checking the process of the code by giving Message boxes at various places, it displays till the SEND method, it does not work after it.Pls tell me what to do its really urgent.I have to accomplish this soon.

Code:

Imports SMS3ASuiteLib

Public Class Form1
Dim smssend As SMS_SuiteAdapter
Dim shortmsg As ShortMessage

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
smssend = New SMS_SuiteAdapter
End Sub

Private Sub ButtonSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSend.Click

On Error GoTo errorhandler
shortmsg = smssend.CreateShortMsg
shortmsg.UserDataText = "sms Send"
shortmsg.OtherEndAddress = "+919884200080"
shortmsg.SCAddress = "+919840011003"
smssend.Send(shortmsg)
errorhandler:
Dim smserror As NmpAdapterError
smserror = smssend.GetLastError
Select Case smserror
Case NmpAdapterError.errPhoneNotConnected
MsgBox("Phone Not Connected")
Case NmpAdapterError.errSmsNoSCAddress
MsgBox("No service address")
Case NmpAdapterError.errSsAbsentSubscriber
MsgBox("Absent Subscriber")

End Select


End Sub

Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
smssend.Terminate()
smssend = Nothing
End Sub
End Class

Thanks in advance