RE:Numero de Lineas de Un Archivo Sin Recorrerlo
Prueba este código, necesitas un TextBox y un CommandButton, en el text cargamos el archivo, suponiendo que es de texto, también podrias usar un RichText...
Option Explicit
Private Declare Function SendMessageByRef Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, wParam As Long, _
lParam As Any) As Long
Private Sub Command1_Click()
' Obtiene el total de lineas en el cuadro de texto
Dim NumLineas As Long
Dim ArchivoLibre As Integer
Dim TamFichero As Long
Const EM_GETLINECOUNT = &HBA
If Dir(App.Path & "\pruebas.txt") = "pruebas.txt" Then
ArchivoLibre = FreeFile
Open App.Path & "\pruebas.txt" For Input As ArchivoLibre
TamFichero = LOF(ArchivoLibre)
Text1.Text = Input(TamFichero, ArchivoLibre)
Close ArchivoLibre
NumLineas = SendMessageByRef(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
MsgBox Str(NumLineas)
End If
End Sub