Visual Basic - leer lineas de un archivo txt

hola mi pregunta es la siguiente ojala alguien me pueda yudar

tengo un programa que lee un archivo txt y quiero que en le formulario alla un texbox que me muestre la cantidad de lineas que tiene el archivo txt.

ej :si el archivo tiene 50 lineas que me muetre

label textbox label
el archivo tiene 50 lineas

de ante mano gracias

Tendrías que hacer una función que recorra las lineas de tu programa, porque no hay función en VB para ello::

Function Lineas( stArchivo as String ) ' Le envias el nombre del archivo a leer.
Dim inRenglones as Integer, stLineaLeida as string

inRenglones = 0
Open stArchivo For Input as #1
Do While Not EOF(1)
Line Input #1, stLineaLeida
inRenglones = inRenglones + 1
Loop
Close #1
Lineas = inRenglones
End Function

para elejandra ESO YA TE LO RESPONDIERON LA VEZ ANTERIOR, pero ni siquiera te tomaste la molestia en leer las respuestas y preferiste VOLVER A PONER LA MISMA PREGUNTITA (mucho menos diste las gracias).
para yo
casi repetiste el codigo con el que le contestaron la vez anterior.

COMO QUISIERA MANDARLOS A LA HOGUERA por llenar el foro con cosas repetidas
Viva la Inquisición Española, la mejor de todas.