Fout in MS-code?? Onverwachte waarde: DateCreated

Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified  
    MsgBox s, 0, "File Access Info"
End Sub

Sub Example()
Dim Prop As Variant
Dim rw As Integer
    rw = 0
    For Each Prop In ActiveWorkbook.BuiltinDocumentProperties
        rw = rw + 1
        If rw = 11 Then MsgBox Prop.Name & ": " & Prop.Value
    Next
End Sub

Sub hsv()
    MsgBox ThisWorkbook.BuiltinDocumentProperties("creation date")
    MsgBox CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).DateCreated
    MsgBox ThisWorkbook.BuiltinDocumentProperties(11)
End Sub