URLEncode – Convert a string for using on a URL query string

' convert a string so that it can be used on a URL query string'' Same effect as the Server.URLEncode method in ASPFunction URLEncode(ByVal Text As String) As String    Dim i As Integer    Dim acode As Integer    Dim char As String        URLEncode = Text        For i = Len(URLEncode) To 1 Step -1        acode = Asc(Mid$(URLEncode, i, 1))        Select Case acode            Case 48 To 57, 65 To 90, 97 To 122                ' don't touch alphanumeric chars            Case 32                ' replace space with "+"                Mid$(URLEncode, i, 1) = "+"            Case Else                ' replace punctuation chars with "%hex"                URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$ _                    (URLEncode, i + 1)        End Select    Next    End Function