Guitarzan,
it is the line in bold, Red font below:
'Modified code to get last access time
Dim strPath, objFile, objNTUserFile, objLastAccessDate,
strPath=objWshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\" & strSubkey & "\ProfileImagePath")
strPath = strPath +...