Type any date inside the InputBox ,and get the last day of
month in this
date.
Form Code
Private
Sub Form_Load() Dim TEMP2 As
Date Dim nLastDay As Integer TEMP2 = InputBox$("Please Enter
A Date", "LastDay") nLastDay = DatePart("d", DateAdd("M", 1,
TEMP2 - DatePart("d", TEMP2))) MsgBox nLastDay End Sub
