Function DameLineasFichero(ByVal strRuta As String) As Long
Dim f As Integer
Dim strTexto As String
Dim arrLineas() As String
f = FreeFile
Open strRuta For Input As #f
strTexto = Input(LOF(f), #f)
Close #f
arrLineas = Split(strTexto, vbNewLine)
DameLineasFichero = UBound(arrLineas) - LBound(arrLineas) + 1
Erase arrLineas
End Function