Visual Basic - calendario

necesito tomar el ultimo dia del mes actual, por ejemplo si es abril tomar el 30, y asi con los demas meses, existe una funcion que me de esto o alguien tiene algo similar
De antemano gracias

Public Function LastDay(dDate As Date) As Integer
Dim i As Integer
For i = 31 To 28 Step -1
If IsDate(Month(dDate) & "/" & Trim(Str(i)) & "/" & Year(dDate)) Then '<---si marcas un día más que el que tiene el mes, entonces, ya no es una fecha aceptada
LastDay = i
Exit Function
End If
Next
End Function

¿Qué tal este otro?

Public Function FindEOM(ByVal dDate As Date) As String
Dim sNextMonth As Date
Dim sEndOfMonth As Date

sNextMonth = DateAdd("m", 1, dDate) '<--agrega un mes: de 14/05/2001 a 14/06/2001
sEndOfMonth = sNextMonth - DatePart("d", sNextMonth) '<--Elimina los días del mes (14), quedando el último día del mes
FindEOM = Day(sEndOfMonth)
End Function