Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Function ANSI2OEM(ByVal sAnsi As String) As String
Dim sOem As String
sOem = String(Len(sAnsi), Chr(0))
CharToOem sAnsi, sOem
ANSI2OEM = sOem
End Function

ИЛИ http://hiprog.com/forum/forum.asp?action=show&id=2&messid=9465&fullview=0