Dim FahrpreisSumme As Currency
Dim Barkasse_gesamt As Double 'Currency
Dim Dateinummer As Integer
Dim tmp As String
 
FahrpreisSumme = 152.34
tmp = Trim$(Str$(FahrpreisSumme)) 'Mit CStr funktioniert's nicht!
 
'Schreiben
Dateinummer = FreeFile
 
    Open "d:\##\fahrpreise.dat" For Output As Dateinummer
        Print #Dateinummer, tmp
    Close #Dateinummer
 
 
'Lesen
Dateinummer = FreeFile
 
    Open "d:\##\fahrpreise.dat" For Input As Dateinummer
        Input #1, tmp
    Close #Dateinummer
 
    Barkasse_gesamt = Val(tmp)