Option Explicit 'This accepts a url-encoded string and returns the plain-text string 'For example "%39%2E%33%45%72%69%63%20%50%68%65%6C%70%73" becomes "9.3Eric Phelps" Dim strText 'As String strText = InputBox("Enter url-encoded text", "URL Encoded Text", "") InputBox "Type ""Ctrl-C"" to copy the following plain text:", "Plain Text", UrlDecode(strText) Function UrlDecode(strString) 'As String Dim strUrlDecode Dim lngPos For lngPos = 1 To Len(strString) If Mid(strString, lngPos, 1) = "%" Then strUrlDecode = strUrlDecode & Chr("&H" & Mid(strString, lngPos + 1, 2)) lngPos = lngPos + 2 Else strUrlDecode = strUrlDecode & Mid(strString, lngPos, 1) End If Next UrlDecode = strUrlDecode End Function