Dim DateiName As String
Dim DateiNr As Integer
Dim strLine As String
DateiName = "c:\gross.txt"
DateiNr = FreeFile
 
Dim Groesse As Single
Single = 0
 
Open DateiName For Input As DateiNr
        Do While Not EOF(DateiNr)
                Line Input #DateiNr, strLine
                Groesse = Groesse + len(strLine)
        Loop
Close DateiNr
 
MsgBox "Dateigröße: " & Groesse