i am trying to add some dates to a combo box. i want to add all the dates from a week ago up to a month from now.

here's what i want to do basically:

For mydate = [a week ago] To [a month from now]
cboDate.AddItem (Format(mydate, "dddd, mmmm d yyyy"))
Next mydate

make sense? any help would be greatly appreciated. thanks a lot.