VBA Code To Find Days In A Month

Sub findDays()
    Dim m As Integer, y As Integer
    Dim DaysInMonth As Integer
    m = Month(January)
    y = Year(2009)
    DaysInMonth = DateSerial(y, m + 1, 1) – DateSerial(y, m, 1)
    MsgBox “Days In Month :” + Str(DaysInMonth)
End Sub