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

Public Function DOS_to_ANSI(Quelle As String) As String
 
Dim sANSI As String
Dim Ziel As String, iQuelle As String
Dim I As Integer
 
'Öffnen der Dateien
Quelle = FreeFile
Open txtquelle.Text For Input As #Quelle
Ziel = FreeFile
Open txtziel.Text For Output As #Ziel
 
'Auslesen der Zeilen und schreiben in die neue Datei
Do While Not EOF(Quelle)
        Line Input #Quelle, iQuelle
        Ziel = Space$(Len(Quelle))
        OemToChar (Quelle = Ziel)
        Print #Ziel, iQuelle
        DOS_to_ANSI = Ziel
Loop
 
'Schließen der Dateien
Close #Quelle
Close #Ziel
 
End Function