Перевод из веб в строку - VB

Формулировка задачи:

как перевести в обычное представление текст в формате веб - (%BD%D1%82%D0%B0)?
ну нада чтобы вместа этой фигни был текст!
напишите плиз код
Решение задачи: «Перевод из веб в строку»

textual
                            Листинг программы 
                        

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

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