Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal _
  lpszSrc As String, ByVal lpszDst As String) As Long 
 
Private Sub cmdkonvert_Click() 
        Dim Quelle As String 
        Dim Ziel As String 
 
       Quelle =  txtquelle.Text 
       Ziel = DOS_To_ANSI(Quelle) 
 
End Sub
 
Public Function DOS_To_ANSI(ByVal Quelle As String) As String 
      Dim sANSI AS String
 
      sANSI = Space$(Len(Quelle)) 
 
      OemToChar(Quelle, sAnsi) 
 
      DOS_To_ANSI = sANSI 
End Function