Make sure that you put a date string in the textbox on itiliaisation, and
this spin code will work it

Private Sub SpinButton1_SpinUp()
TextBox1.Text = Format(CDate(TextBox1.Text) + 1, "dd mmm yyyy")
End Sub

Private Sub SpinButton1_SpinDown()
TextBox1.Text = Format(CDate(TextBox1.Text) - 1, "dd mmm yyyy")
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Gheezer" wrote in message
...
I been looking but I cannot find out how to change a date in a textbox
using a spinbutton. I appreciate your help on this matter.