how to send sms with vb with asp.net

  Public Sub SendSingle(phonenumber As String, message As String)

        ' Add URL Provided by Your Vender

        Dim appsettingSendSmsKey As String = "http://www.YourProviderDomain.com/Sendsms.aspx?|Username|password|sendfrom|cdmaHeader"



        Dim sendsmskey As String() = appsettingSendSmsKey.Split("|"c)

        Dim URL As String = sendsmskey(0)

        Dim usernam As String = sendsmskey(1)

        Dim password As String = sendsmskey(2)

        Dim sendfrom As String = sendsmskey(3)

        Dim CdmaHeader As String = sendsmskey(4)

        Dim sburl As New StringBuilder()

        sburl.Append(URL)

        sburl.Append("UserName=")

        sburl.Append(usernam)

        sburl.Append("&password=")

        sburl.Append(password)

        sburl.Append("&SenderID=")

        sburl.Append(sendfrom)

        sburl.Append("&MobileNo=")

        sburl.Append(phonenumber)

        sburl.Append("&CDMAHeader=")

        sburl.Append(CdmaHeader)

        sburl.Append("&Message=")

        sburl.Append(message)

        Dim request As WebRequest = Nothing

        request = WebRequest.Create(sburl.ToString())

        request.Method = WebRequestMethods.Http.[Get]

        Dim respnse As WebResponse = Nothing

        respnse = request.GetResponse()

        Dim sr As New StreamReader(respnse.GetResponseStream())

        Dim str As String = sr.ReadToEnd()

        sr.Close()

        respnse.Close()

    End Sub