Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Sub Main()
Debug.Print "From ANSI : " & OEMConvert("éèà", False)
Debug.Print "From ASCII : " & OEMConvert("‚Š…", True)
End Sub
Public Function OEMConvert(ByRef Text As String, ByVal FromAscii As Boolean) As String
OEMConvert = Text
If FromAscii Then
OemToChar OEMConvert, OEMConvert
Else
CharToOem OEMConvert, OEMConvert
End If
End Function