Dim DateiName As String
Dim DateiNr As Integer
Dim strLine As String
DateiName = "C:\text.txt"
DateiNr = FreeFile
Dim Anzahl As Integer
Anzahl = 0
 
Open DateiName For Input As DateiNr
         Do While Not EOF(DateiNr)
                  Line Input #DateiNr, strLine
                  Anzahl = Anzahl + 1
         Loop
Close DateiNr