Public Function URLEncode(ByVal strParameter As String) As String Dim s As String Dim I As Integer Dim intValue As Integer Dim TmpData() As Byte s = "" TmpData = StrConv(strParameter,vbFromUnicode) For I = 0 To UBound(TmpData) intValue = TmpData(I) If (intValue >= 48 And intValue <= 57) Or _ (intValue >= 65 And intValue <= 90) Or _ (intValue >= 97 And intValue <= 122) Then s = s & Chr(intValue) ElseIf intValue = 32 Then s = s & "+" Else s = s & "%" & Hex(intValue) End If Next I URLEncode = s End Function
