Try this:

Dim m_vMonday

Sub InputBoxToMonday(Prompt, Optional Title, Optional Default, Optional XPos, Optional YPos, Optional HelpFile, Optional Context)
m_vMonday = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
End Sub

Property Get Monday()
Monday = m_vMonday
End Property

' Following from any event:
' Instead of this:
' Const Monday = InputBox("Enter Monday's Date", "Enter Monday's Date mm/dd/yy", 1 / 1 / 1980)
' Use this:
Call InputBoxToMonday("Enter Monday's Date", "Enter Monday's Date mm/dd/yy", 1 / 1 / 1980)

Using this code, Monday is a "constant" which can be "set" using InputBoxToMonday.

------------------
Yonatan
Teenage Programmer
E-Mail: [email protected]
ICQ: 19552879
AIM: RYoni69

[This message has been edited by Yonatan (edited 11-15-1999).]