How can I get the last day of a certain month in VB/VBA?

This is what I have...

Public Function LastDayOfMonth (Mn As Integer, Yr As Integer) As Date

End Function