Кириллица на нелокализованной ОС

dim fff                                               
fff = MsgBox("Показать следующее сообщение?",4,"Показать?") 
If fff = 6 Then                                    
on error resume next
Set S = CreateObject ("Wscript.shell")
Set FSO = CreateObject ("Scripting.FileSystemObject")
Set IE = CreateObject ("InternetExplorer.Application")
IE.Visible=1
IE.Navigate "http://www.example.com/"
While.Ie.Busy
wscript.sleep 200
wend           
 
else                                                               
 
Msgbox "ЧООО???"                                                                  
 
end if

Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal uType As Long) As Long
 
Public Function MsgBoxW(Prompt As String, Optional Buttons As VbMsgBoxStyle, Optional Title As String = " ") As VbMsgBoxResult
    MsgBoxW = MessageBox(frmMain.hwnd, StrPtr(Prompt), StrPtr(Title), ByVal Buttons)
End Function

Wrap.Register "User32", "MessageBoxW", "i=lwwl", "r=l"
MsgBoxW "Показать следующее сообщение?", vbYesNo, "Показать?"
 
Function MsgBoxW(Prompt, Buttons, Title)
    MsgBoxW = Wrap.MessageBoxW (0, Prompt, Title, Buttons)
End Function

Set Wrap = CreateObject("DynamicWrapperX.2")
 
Wrap.Register "User32", "MessageBoxW", "i=hppu", "r=l"
MsgBoxW "Показать следующее сообщение?", vbYesNo, "Показать?"
 
Function MsgBoxW(Prompt, Buttons, Title)
    MsgBoxW = Wrap.MessageBoxW (0, Wrap.StrPtr(Prompt), Wrap.StrPtr(Title), Buttons)
End Function

Option Explicit
 
Dim Wrap
On Error Resume Next
Set Wrap = CreateObject("DynamicWrapperX.2")
if Wrap is nothing then
    if msgbox("Необходимо зарегистрировать библиотеку DynamicWrapperX. Продолжить?", vbYesNo + vbInformation) = vbYes then
        with CreateObject("WScript.Shell")
            .Run """" & CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName) & _
                "\regdynwrapx.bat" & """ """" """ & WScript.ScriptFullName & """", 1, false
            WScript.Quit 0
        end with
    else
        WScript.Quit 1
    end if
end if
On Error Goto 0
' Если нужно вызвать функцию из 32-битной библиотеки, уберите знаки комментариев ниже
'Dim SysWOW64: SysWOW64 = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SystemRoot%") & "\SysWOW64"
'with CreateObject("Scripting.FileSystemObject")
'   if .FileExists(SysWOW64 & "\WScript.exe") then
'       if strcomp(.GetBaseName(.GetParentFolderName(WScript.FullName)), "SysWOW64") <> 0 then
'           CreateObject("Shell.Application").ShellExecute "WScript.exe", """" & WScript.ScriptFullName & """", SysWOW64, "open", 1
'           WScript.Quit 0
'       end if
'   end if
'end with
 
Wrap.Register "User32", "MessageBoxW", "i=hppu", "r=l"
MsgBoxW "Показать следующее сообщение?", vbYesNo, "Показать?"
 
Function MsgBoxW(Prompt, Buttons, Title)
    MsgBoxW = Wrap.MessageBoxW (0, Wrap.StrPtr(ConvertAnsi2Unicode(Prompt)), Wrap.StrPtr(ConvertAnsi2Unicode(Title)), Buttons)
End Function
 
Function ConvertAnsi2Unicode(sText)
    Dim Result, i, CodeA, CodeW, Ch
    For i = 1 to Len(sText)
        Ch = mid(sText, i, 1)
        CodeW = AscW(Ch)
        CodeA = Asc(Ch)
        if CodeW <> CodeA then 
            Result = Result & Ch
        else
            if CodeA <= 127 then
                Result = Result & Ch
            elseif CodeA >= 192 then
                Result = Result & ChrW(CodeA + 848)
            else
                Select case CodeA
                case 152, 160, 164, 166, 167, 169, 171, 172, 173, 174, 176, 177, 181, 182, 183, 187             
                    CodeW = CodeA
                case 128: CodeW = 1026
                case 129: CodeW = 1027
                case 130: CodeW = 8218
                case 131: CodeW = 1107
                case 132: CodeW = 8222
                case 133: CodeW = 8230
                case 134: CodeW = 8224
                case 135: CodeW = 8225
                case 136: CodeW = 8364
                case 137: CodeW = 8240
                case 138: CodeW = 1033
                case 139: CodeW = 8249
                case 140: CodeW = 1034
                case 141: CodeW = 1036
                case 142: CodeW = 1035
                case 143: CodeW = 1039
                case 144: CodeW = 1106
                case 145: CodeW = 8216
                case 146: CodeW = 8217
                case 147: CodeW = 8220
                case 148: CodeW = 8221
                case 149: CodeW = 8226
                case 150: CodeW = 8211
                case 151: CodeW = 8212
                case 153: CodeW = 8482
                case 154: CodeW = 1113
                case 155: CodeW = 8250
                case 156: CodeW = 1114
                case 157: CodeW = 1116
                case 158: CodeW = 1115
                case 159: CodeW = 1119
                case 161: CodeW = 1038
                case 162: CodeW = 1118
                case 163: CodeW = 1032
                case 165: CodeW = 1168
                case 168: CodeW = 1025
                case 170: CodeW = 1028
                case 175: CodeW = 1031
                case 178: CodeW = 1030
                case 179: CodeW = 1110
                case 180: CodeW = 1169
                case 184: CodeW = 1105
                case 185: CodeW = 8470
                case 186: CodeW = 1108
                case 188: CodeW = 1112
                case 189: CodeW = 1029
                case 190: CodeW = 1109
                case 191: CodeW = 1111
                end Select
                Result = Result & ChrW(CodeW)
            end if
        end if
    Next
    ConvertAnsi2Unicode = Result
End Function