Información de Fichero TXT

Te envío este código, que descargue... puedes leer cualquier cosa del archivo, solo debes poasarle la ruta a la función... aquí manda por el depurador las respuestas, pero puedes mandarlas aúna caja de texto... y solo la que necesites...
'*********** C?digo ***************
'
' ExaminarArchivo
'
' Rutina que explora un archivo e
' informa de sus caracter?sticas
' principales.
'
' Autor: Juan M. Af?n de Ribera
' Fecha: Junio 2003
'
Sub examinarArchivo(nomArchivo As String)
Dim fso As Object 'New FileSystemObject
Dim archivo As Object 'File
Set fso = CreateObject("Scripting.FileSystemObject")
Set archivo = fso.GetFile(nomArchivo)
Debug.Print "Fecha creaci?n: " _
& archivo.DateCreated
Debug.Print "Fecha ?ltimo acceso: " _
& archivo.DateLastAccessed
Debug.Print "Fecha ?ltima modificaci?n: " _
& archivo.DateLastModified
Debug.Print "Letra unidad: " _
& archivo.Drive
Debug.Print "Nombre archivo: " _
& archivo.Name
Debug.Print "Carpeta: " _
& archivo.ParentFolder
Debug.Print "Ruta completa: " _
& archivo.Path
Debug.Print "Nombre archivo DOS: " _
& archivo.ShortName
Debug.Print "Nombre ruta DOS: " _
& archivo.ShortPath
Debug.Print "Tama?o: " _
& Format(archivo.Size, "##,###")
Debug.Print "Tipo de archivo: " _
& archivo.Type
Set archivo = Nothing
Set fso = Nothing
End Sub
'********* Fin c?digo *************
Att:telemaco