To calculate # of days in current month

Code:
Private Sub cmdGo_Click()
Dim month_number As Integer
Dim year_number As Integer

    month_number = Month(txtMonth.Text)
    year_number = Year(txtMonth.Text)
    MsgBox "Days: " & Format$(Day(DateSerial(year_number, _
        month_number + 1, 0)))
End Sub
Chetan Nagar