Este es un ejemplo adaptalo a tus necesidades...
Comenta por favor si te sirvio, funciona para mas tipos de archivo no solo txt...
Código vb:
Ver originalPrivate Sub cmd_Boton_Click()
Consultar_Archivo ("C:\XXXXX.txt")
End Sub
Private Sub Consultar_Archivo(Byval Path As String)
'Variable de tipo FileSystemObject y File
Dim o_Fso As New FileSystemObject
Dim Archivo As File
' Lee las propiedades del archivo mediante GetFile
Set Archivo = o_Fso.GetFile(Path)
'Visualiza el resultado: Creación ,acceso y modificado etc..
MsgBox "Fecha de creación del archivo: " & Format(Archivo.DateCreated), vbInformation
MsgBox "Fecha de modificación : " & Format(Archivo.DateLastModified), vbInformation
MsgBox "Fecha de del último acceso: " & Format(Archivo.DateLastAccessed), vbInformation
MsgBox "Tamaño del archivo : " & Format(CLng(Archivo.Size) / 1024) & " MB", vbInformation
MsgBox "Tipo de archivo : " & Format(Archivo.Type), vbInformation
' Elimina las variables de objeto
Set Archivo = Nothing
Set o_Fso = Nothing
End Sub