Enum idCodePage
    win =  1251 
    dos =  866 
    Koi =  20866 
    Iso =  28595 
    Utf =  65001 
End Enum

Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, _
        ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, _
        ByVal cchWideChar As Long) As Long
Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, _
        ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, _
        ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long

Public Function ConvertCodePage(SourseString As String, inPage As idCodePage, outPage As idCodePage) As String
  Dim LenSourseString As Long
  Dim strFirst As String
  Dim strSecond As String
  Dim RetStrLong As Long
  LenSourseString = Len(SourseString)
  strFirst = String(LenSourseString *  2 , Chr( 0 ))
  strSecond = String(LenSourseString *  2 , Chr( 0 ))
  RetStrLong = MultiByteToWideChar(inPage, &H1, SourseString, LenSourseString, StrPtr(strFirst), LenSourseString)
  RetStrLong = WideCharToMultiByte(outPage,  0 , StrPtr(strFirst), RetStrLong, strSecond, LenSourseString *  2 , ByVal  0 ,  0 )
  ConvertCodePage = Left(strSecond, RetStrLong)
End Function

Shell "C:\xcode.exe C:\data\enter.htm C:\data\enter2.txt"

Declare Function MultiByteToWideChar Lib "kernel32" _
(ByVal CodePage As Long, ByVal dwFlags As Long, _
ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Const CP_UTF8 =  65001 

Dim sOut As String, sIn As String, OutLength As Long
sIn = "%D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0"
sOut = sIn
OutLength =  0 
Dim i&, Char As Byte, CharPercent As Byte
CharPercent = Asc("%")
For i =  1  To Len(sIn)
Char = Asc(Mid$(sIn, i,  1 ))
If Char = CharPercent Then
Char = CByte("&H" & Mid$(sIn, i +  1 ,  2 ))
i = i +  2 
End If
OutLength = OutLength +  1 
Mid$(sOut, OutLength,  1 ) = Chr$(Char)
Next i
sOut = Left$(sOut, OutLength)

Dim s As String
s = sOut
s = Left$(s, MultiByteToWideChar(CP_UTF8,  0 , sOut, - 1 , StrPtr(s), LenB(s)))
MsgBox s