Private Function SendSMS(ByVal Test As Boolean, _
ByVal From As String, _
ByVal Type As String, _
ByVal Message As String, _
ByVal SendTo As String, _
ByVal URL As String) As String

    Const TransportURL As String ="http://www.isms.com.my/isms_send.php"
    Const TransportUserNameAs String ="myusername"
    Const TransportPasswordAs String ="mypassword"
    Const TransportVerboseAs Boolean =True
    Dim strPost As String

    strPost = "un=" + TransportUserName _
    + "&pwd=" + TransportPassword _
    + "&msg=" + System.Web.HttpUtility.UrlEncode(Message) _
    + "&sendid=" + From _
    + "&type=" + Type _
    + "&dstno=" + SendTo


 
    Dim request As WebRequest = WebRequest.Create(TransportURL)
    request.Method = "GET"
    Dim byteArray As Byte() = Encoding.UTF8.GetBytes(strPost)
    request.ContentType = "application/x-www-form-urlencoded"
    request.ContentLength = byteArray.Length
    Dim dataStream As Stream = request.GetRequestStream()
    dataStream.Write(byteArray, 0, byteArray.Length)
    dataStream.Close()

    Dim response As WebResponse = request.GetResponse()
    dataStream = response.GetResponseStream()
    Dim reader As New StreamReader(dataStream)
    Dim responseFromServerAs String = reader.ReadToEnd()
 
    reader.Close()
    dataStream.Close()
    response.Close()

    If responseFromServer.Length > 0 Then
        Return responseFromServer
    Else
        Return CType(response, HttpWebResponse).StatusDescription
    End If
End Function