This xml code has been provided by the SMS service provider. Somehow I need to execute the xml code from within foxpro.

The service provider has given me code which is in vb.net

Sub sendsms()
        'Dim strurl As String = HttpUtility.UrlEncode(sb.ToString, Encoding.UTF8)
        'dim urlw as String=WebBrowser.NavigateEventArgs(
        Try

        Dim str_url As String = HttpUtility.UrlEncode(sb.ToString)
            Dim url As String = "http://api.myvaluefirst.com/psms/servlet/psms.Eservice2?data=" & str_url & " &action=send "
            Dim request As WebRequest = WebRequest.Create(url)
            request.Credentials = CredentialCache.DefaultCredentials
            Dim response1 As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            'Response.Write(CType(response1, HttpWebResponse).StatusDescription)
            Dim dataStream As Stream = response1.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()
            'st = FindGUID(responseFromServer)
            'MakeXMLFile(responseFromServer)
            'Dim str_send As String
            'str_send = responseFromServer
            reader.Close()
            dataStream.Close()
            response1.Close()

        Catch ex As Exception

        End Try

    End Sub

I have no idea how to convert this code into foxpro.