letzter Tag des Vormonats

ich möchte als Datum den letzten Tag des Vormonats haben.
Wenn das aktuelle Datum natürlich schon der letzte Tag vom Monat ist, soll er gleich bleiben.

Ich dachte mir mal als Ansatz:

Zeitpunkt.Value = Date
If Day(Zeitpunkt.Value) + 1 = 1 Then

Else
Zeitpunkt.Value = Zeitpunkt.Value - Day(Zeitpunkt.Value)
End If

Er zieht aber leider von den Jahren ab, und der String ist dann nicht mehr formatiert.

Kann mir jemand helfen??? Danke.

Beste Grüße

Florian Weiß