Public Function URLdecode(ByRef Text As String) As String
    Const Hex = "0123456789ABCDEF"
    Dim lngA As Long, lngB As Long, lngChar As Long, lngChar2 As Long
    URLdecode = Text
    lngB =  1 
    For lngA =  1  To LenB(Text) -  1  Step  2 
        lngChar = Asc(MidB$(URLdecode, lngA,  2 ))
        Select Case lngChar
            Case  37 
                lngChar = InStr(Hex, MidB$(Text, lngA +  2 ,  2 )) -  1 
                If lngChar >=  0  Then
                    lngChar2 = InStr(Hex, MidB$(Text, lngA +  4 ,  2 )) -  1 
                    If lngChar2 >=  0  Then
                        MidB$(URLdecode, lngB,  2 ) = Chr$((lngChar * &H10&) Or lngChar2)
                        lngA = lngA +  4 
                    Else
                        If lngB < lngA Then MidB$(URLdecode, lngB,  2 ) = MidB$(Text, lngA,  2 )
                    End If
                Else
                    If lngB < lngA Then MidB$(URLdecode, lngB,  2 ) = MidB$(Text, lngA,  2 )
                End If
            Case  43 
                MidB$(URLdecode, lngB,  2 ) = " "
            Case Else
                If lngB < lngA Then MidB$(URLdecode, lngB,  2 ) = MidB$(Text, lngA,  2 )
        End Select
        lngB = lngB +  2 
    Next lngA
    URLdecode = LeftB$(URLdecode, lngB -  1 )
End Function

Public Function URLencode(ByRef Text As String) As String
    Const Hex = "0123456789ABCDEF"
    Dim lngA As Long, lngChar As Long
    URLencode = Text
    For lngA = LenB(URLencode) -  1  To  1  Step - 2 
        lngChar = Asc(MidB$(URLencode, lngA,  2 ))
        Select Case lngChar
            Case  48  To  57 ,  65  To  90 ,  97  To  122 
            Case  32 
                MidB$(URLencode, lngA,  2 ) = "+"
            Case Else
                URLencode = LeftB$(URLencode, lngA -  1 ) & "%" & Mid$(Hex, (lngChar And &HF0) \ &H10 +  1 ,  1 ) & Mid$(Hex, (lngChar And &HF&) +  1 ,  1 ) & MidB$(URLencode, lngA +  2 )
        End Select
    Next lngA
End Function