Code:
Open "myfile.csv" For Input As #1

	While Not EOF(1)

		Line Input #1, foo$
		Lines = Lines + 1

	Wend

Close #1

MsgBox "Your file had " & Lines & " lines."