Find the last modified file in a directory - vbscript

Function FindLastModified(strDir)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = objFSO.GetFolder(strDir)

    Date = CDate("1/1/1950")

    For Each oFile In oFolder.Files
        If oFile.DateLastModified > Date Then
            NewestFile = oFile.Name
            Date = oFile.DateLastModified
        End If
    Next
    FindLastModified = NewestFile
End Function