Contar la cantidad de líneas de un archivo

Dim n As Integer = File.ReadAllLines("C:\file.txt").Lenght fuente: https://stackoverflow.com/questions/119559/determine-the-number-of-lines-within-a-text-file