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

Dim sDOS_Text As String
Dim sWIN_Text As String
Dim lResult As Long
 
sWIN_Text = Space$(Len(sDOS_Text))
lResult = CharToOem(sDOS_Text, sWIN_Text)
 
MsgBox sWIN_Text