Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" _
   (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Public Function convertStringToOem(inputString As String) As String
 'преобразует строку к DOS кодировке
 
  Dim retString As String
  If LenB(inputString) >  0  Then
  retString = VBA.String$(VBA.Len(inputString), VBA.Chr$( 0 ))
  Dim hResult As Long
  hResult = CharToOem(inputString, retString)
  convertStringToOem = retString
  End If
End Function