URLEncode in MS Access

[Milan Mehta]

I want to send sms from my ms access 2007 application. I want to make use of a web site to send the sms. The code provided by the web site requires me to use server.URLEncode. But it seems the same is not available with MS Access. Is there any work around ?

I have been given following code :

--------------------------------------------Cut--------------------------------------------------
''''wirte code for loop while (you can open record set here)
sResponse = ""
sResponse = SMSSend(pno, message )
If right(sResponse,15) = "Send Successful" Then
'write your code here
End If
'''End Wend
Function SMSSend (strPh,strMsg)

Dim msgResponse
Dim strRequest
Dim strUrl
msgResponse = ""

strPh=right(strPh,10)
If not IsNumeric(strPh) Or len(strPh) <> 10 Then
msgResponse = "Enter valid Mobile Number."
End If
If strMsg = "" Then
msgResponse = "Enter text message."
End If

strUrl = "http://bulksmsindia.mobi/sendurl.asp?"
strRequest = strRequest+"&user=profileid"
strRequest = strRequest+"&pwd=pass"
strRequest = strRequest+"&mobileno="+strPh
strRequest = strRequest+"&msgtext="+Server.URLEncode(strMsg)

strUrl = strUrl+strRequest

If msgResponse = "" Then
Dim oXML
Dim sPage
Err.Clear
On Error Resume Next
Set oXML = Server.CreateObject("Msxml2.XMLHTTP")
oXML.Open "get", strUrl , false
oXML.Send
msgResponse = oXML.ResponseText
Set oXML = Nothing
End If

SMSSend = msgResponse

If Err.Number <> 0 Then
SMSSend = "Problem on sending sms : "& Err.Description
End If

End Function
----------------------------------------Paste---------------------------------------------------