Diese Funktion berechnet den letzten Tag des aktuellen Monats:

Function MonatsLetzter()
    Jahr = Format(Now, "yyyy")
    Monat = Format(Now, "mm")
    f = "dd.mm.yyyy"
    MonatsLetzter = Format(DateSerial(Jahr, Monat + 1, 0), f)
End Function

Sub Testen()
    MsgBox MonatsLetzter()
End Sub

Ein Anwendungsfall könnte das Starten einer bestimmten Routine sein,
die immer an diesem Tag ausgeführt werden soll:

Function IstHeuteMonatsLetzter() As Boolean
    Jahr = Format(Now, "yyyy")
    Monat = Format(Now, "mm")
    f = "dd.mm.yyyy"
    IstHeuteMonatsLetzter = Format(Now, f) = _
       Format(DateSerial(Jahr, Monat + 1, 0), f)
End Function

Sub Aufruf()
    If IstHeuteMonatsLetzter Then
        t = "Heute eine Aktion starten !"
    Else
        t = "Heute keine Aktion !"
    End If
    MsgBox t
End Sub