Public Function URLEncode(ByVal input_url As String) As String
        Dim count As Long
        Dim one_char As String
        URLEncode = ""


        For count = 1 To Len(input_url)
            one_char = Mid$(input_url,count,1)


            If InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",UCase$(one_char)) = 0 Then
                one_char = "%" & Right$("0" & Hex$(Asc(one_char)),2)
            End If
            URLEncode = URLEncode & one_char
        Next
    End Function