Как перекодировать записи из DOS-кодировки в Windows ?

Function OEM2ANSI(s As String)
  Static re
  If IsEmpty(re) Then
    re = Array( _
    &HC0, &HC1, &HC2, &HC3, &HC4, &HC5, &HC6, &HC7, _
    &HC8, &HC9, &HCA, &HCB, &HCC, &HCD, &HCE, &HCF, _
    &HD0, &HD1, &HD2, &HD3, &HD4, &HD5, &HD6, &HD7, _
    &HD8, &HD9, &HDA, &HDB, &HDC, &HDD, &HDE, &HDF, _
    &HE0, &HE1, &HE2, &HE3, &HE4, &HE5, &HE6, &HE7, _
    &HE8, &HE9, &HEA, &HEB, &HEC, &HED, &HEE, &HEF, _
    &HB0, &HB1, &HB2, &HA6, &HB4, &HB5, &HB6, &HB7, _
    &HB8, &HB9, &HBA, &HBB, &HBC, &HBD, &HBE, &HAC, _
    &HC0, &HC1, &HC2, &HC3, &HC4, &H86, &HC6, &HC7, _
    &HC8, &HC9, &HCA, &HCB, &HCC, &HCD, &HCE, &HCF, _
    &HD0, &HD1, &HD2, &HD3, &HD4, &HD5, &HD6, &HD7, _
    &H87, &HD9, &HDA, &HDB, &HDC, &HDD, &HDE, &HDF, _
    &HF0, &HF1, &HF2, &HF3, &HF4, &HF5, &HF6, &HF7, _
    &HF8, &HF9, &HFA, &HFB, &HFC, &HFD, &HFE, &HFF, _
    &HA8, &HB8, &HAA, &HBA, &HAF, &HBF, &HA1, &HA2, _
    &HB0, &HF9, &HB7, &HFB, &HB9, &HA4, &HFE, &HA0)
  End If
  t = ''
  For i = 1 To Len(s)
    a = Asc(Mid(s, i, 1))
    If a < 128 Then
      t = t & Chr(a)
    Else
      t = t & Chr(re(a - 128))
    End If
  Next
  OEM2ANSI = t
End Function
 
Private Sub Form_Load()
MsgBox (OEM2ANSI(Chr(138) & Chr(168) & Chr(224) & Chr(168) & _
  Chr(171) & Chr(171) & Chr(168) & Chr(230) & Chr(160)))
End Sub