[VB.Net] Get Last Day of the Month

Function LastOfThisMonth() As Date
LastOfThisMonth = DateAdd("d", -1, FirstOfNextMonth)
End Function

Function FirstOfNextMonth() As Date
Dim dtm As Date
dtm = Date
FirstOfNextMonth = DateSerial(Year(dtm),
Month(dtm) + 1, 1)
End Function