Get Windows Installed Date

Code:

Public Function GetExplorerDate() As Date
    GetExplorerDate = FileDateTime(Environ("windir") & "\explorer.exe")
End Function