[tas]

In VB6?

Public Function Days(y As Integer, m As Integer) As Integer
   Days = Day(DateSerial(y, m + 1, 0))
End Function