Wenn man den letzten Tag eines Monats haben möchte, muss man etwas herum rechnen. Es gibt etliche Varianten, die jede Menge Vodoo durchführen, dabei ist die rechnerische Lösung recht einfach.
Die DateTime Klasse bietet uns gute Möglichkeiten, mit Datumswerten zu rechnen. Um den letzten Tag eines Monats zu erhalten, muss man zum gegebenen Datum einen Monat hinzu addieren und die Anzahl der gegebenen Tage subtrahieren. Damit erhält man den nullten Tag des Folgemonats, oder auch den letzten Tag des gewünschten Monats. Man kann auch einfach folgende Funktion nutzen:

1:    Public Shared Function GetLastDayOfMonth(ByVal d As DateTime) As DateTime
2: Dim dNextMonth As DateTime = DateAdd(DateInterval.Month, 1, d)
3: Return DateAdd(DateInterval.Day, -d.Day, dNextMonth)
4: End Function