Text file monitoring

Option Explicit
Sub GetDate()
    Dim fso, f
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '**************************************************
    'Change the path and file name, from this:
    'Set f = fso.GetFile("C:\TestData\Test.txt")
    'to??????
    'Set f = fso.GetFile("C:\Test.txt")
    '**************************************************
    
    Set f = fso.GetFile("C:\TestData\Test.txt")

    '**************************************************
    'Change the range to where you want the date and time to go
    '**************************************************
    
    Range("B2").Formula = f.DateLastModified
    Range("B2").Select
End Sub