visual basic 6 - rozhodená diakritika v prompt boxe

Prosím Vás, mam ďalší problém, v prompt boxe mi rozhadzuje slovenskú/českú diakritiku. V programovom kóde mi tiež nepíše správne znaky ako č,ť,ž, atď

kde robím chybu?

kodovanie znakov?

to mi tiež napadlo, ale kde sa to nastavuje?
skúšal som zadať znak cez Chr, ale aj tak mi to vykreslí zle. Zaujímavé je, že niektoré znaky (napr. á,é) vykresluje ok.

zistil som, ze mi v tejto funckii nespracovava dobre ChrW
Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional Context) As String
On Error GoTo 1002
Dim lngModHwnd As Long, lngThreadID As Long

lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
UnhookWindowsHookEx hHook
1002:
End Function

v normalnom inputboxe mi zobrazuje hodnoty chrw ok. V com je chyba?

Ahojte tiež som mával ten istí problém.
Ale vyskúšajte toto.

Picture1.Font.Charset = 238 '"Central European"
Picture1.FontSize = 12
Picture1.FontName = "Times New Roman"

"Picture1" <--- zameňte za čokoľvek iné.