Public Function UrlEncode(ByRef szString As String) As String

Dim szChar As String

Dim szTemp As String

Dim szCode As String

Dim szHex As String

Dim szBin As String

Dim iCount1 As Integer

Dim iCount2 As Integer

Dim iStrLen1 As Integer

Dim iStrLen2 As Integer

Dim lResult As Long

Dim lAscVal As Long

szString = Trim$(szString)

iStrLen1 = Len(szString)

For iCount1 = 1 To iStrLen1

szChar = Mid$(szString, iCount1, 1)

lAscVal = AscW(szChar)

If lAscVal >= &H0 And lAscVal <= &HFF Then

If (lAscVal >= &H30 And lAscVal <= &H39) Or _

(lAscVal >= &H41 And lAscVal <= &H5A) Or _

(lAscVal >= &H61 And lAscVal <= &H7A) Then

szCode = szCode & szChar

Else

szCode = szCode & "%" & He