DECLARE SUB oeffnen (Dateiname$) oeffnen "text.txt" SUB oeffnen (Dateiname$) OPEN Dateiname$ FOR BINARY AS #1 PRINT "GrӇe : "; LOF(1) END SUB