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

' Перевод текста в кодировку DOS
Private Function ToDOS(Text As String) As String
Dim Text1 As String
Text1 = Space(Len(Text) + 1)
OemToChar Text, Text1
ToDOS = Left$(Text1, Len(Text))
End Function

' Перевод текста в кодировку Windows
Private Function ToWindows(Text As String) As String
Dim Text1 As String
Text1 = Space(Len(Text) + 1)
CharToOem Text, Text1
ToWindows = Left$(Text1, Len(Text))
End Function