These are useful functions when you are dealing with URL encoded URLs or POST data.

Public Function urlDecode(s As String) As String 	If Len(s) = 0 Then Exit Function 	Dim i As Integer 	Dim tmp As String 	Dim c As String 	For i = 1 To Len(s) 		c = Mid$(s, i, 1) 		If c = "+" Then c = " " 		If c = "%" Then 			c = Chr$("&H" + Mid$(s, i + 1, 2)) 			i = i + 2 		End If 		tmp = tmp + c 	Next i 	urlDecode = tmp End Function Public Function urlEncode(s As String) As String 	If Len(s) = 0 Then Exit Function 	 	Dim tmp As String 	Dim c As String 	Dim i As Integer 	 	For i = 1 To Len(s) 		c = Mid(s, i, 1) 		If (Asc(c) >= 65 And Asc(c) <= 90) _ 		Or (Asc(c) >= 97 And Asc(c) <= 122) _ 		Or (Asc(c) >= 48 And Asc(c) <= 58) _ 		Or Asc(c) = 38 _ 		Or (Asc(c) >= 45 And Asc(c) <= 47) _ 		Or Asc(c) = 58 Or Asc(c) = 61 _ 		Or Asc(c) = 63 Or Asc(c) = 126 Then 			tmp = tmp + c 		Else 			tmp = tmp + "%" + Hex(Asc(c)) 		End If 	Next i 	urlEncode = tmp End Function