Private Sub Form_Load()
MsgBox GetFileDate("d:\Meine Euromünzen.xls")
 
End Sub
Function GetFileDate(ByVal sFilePath As String) As Date
Dim fso As Object
Dim fsFile As Object
Dim dReturn As Date
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
'Existiert die Datei?
If fso.FileExists(sFilePath) Then
    Set fsFile = fso.GetFile(sFilePath)
    dReturn = fsFile.DateLastModified   ' - Letzte Änderung
 
Else
    'Irgendein Rückgabedatum für den Elsefall wählen, um diesen nachher 
    ' abzufangen
    dReturn = " #9 9 99#"
End If
 
GetFileDate = dReturn
 
End Function