Last safe time

[Hoornvan]

Hallo helpers,

Ik zit zomaar een beetje met een macro te stoeien (uit proberen).
Op dit deel van de macro loopt hij vast en ik denk dat dit door de 2x = komt.
Het is de bedoeling als ik de gegevens op vraag, hij laat zien wanneer hij vvor het laatst is opgeslagen.

If .txtLastSaveTime.Text = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") = "" Then
        .txtLastSaveTime.Text = "Nog niet beschikbaar"
    Else
        .txtLastSaveTime.Text = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
    End If

Als ik de code zo doe dan geeft hij gelijk "Nog niet beschikbaar", ook als er wel een gegeven is.

If .txtLastSaveTime.Text = ""  Then
        .txtLastSaveTime.Text = "Nog niet beschikbaar"
    Else
        .txtLastSaveTime.Text = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
    End If

Hoe moet ik dit oplossen?
Misschien is het simpel maar je moet er maar opkomen.

Mvg,
Wim

 

[Hoornvan]

Het is me gelukt en wel met deze code:

On error Resume Next
[txtLastSaveTime.Text = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
        If .txtLastSaveTime.Text = "" Then
            .txtLastSaveTime.Text = "Nog niet beschikbaar"
        End If

Tot het volgende probleem