Option Explicit

'This accepts a string and returns the url-encoded string
'For example "9.3Eric Phelps" becomes "%39%2E%33%45%72%69%63%20%50%68%65%6C%70%73"

Dim strText 'As String
strText = InputBox("Enter plain text", "Plain Text", "")
InputBox "Type ""Ctrl-C"" to copy the following encoded text:", "URL Encoded Text", UrlEncode(strText)

Function UrlEncode(strString) 'As String
Dim strUrlEncode
Dim lngPos
    For lngPos = 1 To Len(strString)
        strUrlEncode = strUrlEncode & "%" & Right("0" & Hex(Asc(Mid(strString, lngPos, 1))), 2)
    Next
    UrlEncode = strUrlEncode
End Function