Option Explicit
Dim FahrpreisSumme As Currency
Dim Barkasse_gesamt As Currency
Dim Dateinummer as Integer
 
FahrpreisSumme = 152.34
 
'Schreiben
Dateinummer = FreeFile
 
    Open "fahrpreise.dat" For Output As Dateinummer
        Print #Dateinummer, FahrpreisSumme
    Close #Dateinummer
 
 
 
'Lesen
Dateinummer = FreeFile
 
    Open "fahrpreise.dat" For Input As Dateinummer
        Input #1, Barkasse_gesamt
    Close #Dateinummer