sending an sms - Almost there!

hi Guys,
so my phone is connected to the computer, on com7

From the hyperterminal I have no issues sending an sms.

I want to do it from a button in vb.net

My code is the following:

Code:

---

Public Class Form1
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        With comSerial
            .PortName = "COM7"
            .BaudRate = "460800"
            .StopBits = IO.Ports.StopBits.One
            .DataBits = 8
            .Parity = IO.Ports.Parity.None
            .ReadBufferSize = 10000
            .ReadTimeout = 1000
            .WriteBufferSize = 10000
            .WriteTimeout = 10000
            .RtsEnable = True


            .Open()
            .DiscardOutBuffer()


        End With

        comSerial.Write("at+cmgf=1" + Chr(13))
        'Now enter message writing mode to send an sms to the number below
        comSerial.Write("at+cmgs=" & Chr(34) & "447725698210" & Chr(34) & Chr(13))
        'Now send the contents of the message
        comSerial.Write("Test message from coded program" + Chr(26))



    End Sub
End Class

---

I know it interacts with com7 becuase when i try to use hyperterminal when the program is working, it says it is busy.

I am basically just trying to simulate the at commands, when I click the button no errors or anything, just no text message either.

Any healp would be greatly appreciated

Alex