Dim DateiPfad As String = "C:\Text.txt"
Dim Reader As New StreamReader(DateiPfad)
 
.....
 
TextBox1.Text = 'Code zum ermitteln der Zeilenanzahl der Textdatei

-----------------------
Gru? BigBobbie
-----------------------