VB.NET
*  

 Dim LineTemp As Integer = File.ReadAllLines("list.txt").Length

        MsgBox(LineTemp)