Public Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

'конвертим из ДОС в WIN
strData = String(Len(strDataTmp), " ")
i = OemToChar(strDataTmp, strData)

'конвертим из вын в дос
strData = String(Len(strDataTmp), " ")
i = OemToChar(strDataTmp, strData)

'конвертим из вын в дос
strData = String(Len(strDataTmp), " ")
i = CharToOem(strDataTmp, strData)