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

转载于:https://www.cnblogs.com/hannover/archive/2012/01/23/2328929.html