OEMToAnsi16

Declare Sub AnsiToOemBuff Lib "Keyboard" _
(ByVal lpAnsiStr As String, ByVal lpOemStr As String, _
ByVal Length As Integer)
Declare Sub OemToAnsiBuff Lib "Keyboard" _
(ByVal lpOemStr As String, ByVal lpAnsiStr As String, _
ByVal nLength As Integer)
'Uso:

Sub ConvToDos (S$)
lpAnsiStr$ = S$
lpOemStr$ = S$
AnsiToOemBuff lpAnsiStr$, lpOemStr$, Len(S$)
S$ = lpOemStr$
End Sub

Sub ConvToWin (S$)
lpAnsiStr$ = S$
lpOemStr$ = S$
OemToAnsiBuff lpOemStr$, lpAnsiStr$, Len(S$)
S$ = lpAnsiStr$
End Sub

Come convertire OEM in ANSI (16 bit)