I am trying to insert a date within a string in a textbox, such as:

“Mary had a little 23-Jul-06 lamb, its fleece was white as snow. 23-Aug-06”.

Every time I try to insert the date it clears the text from the textbox. I’ve tried everything I can think of, but I’m unable to insert it without clearing the text. The DATE function seems to have a built in ‘clear’ function so each time its called it clears the textbox. Is there a way of disabling this phantom ‘clear’ function? See my coding attempts below:

Private Sub cmdDate_Click()
I've tried the following:
1. Text1.Text = Date

2. dim date as string
text1.text = date

3. text1.text = str(date)

4. text1.text = Format(Now, "dd mmmm yyyy")
End Sub

None of them do what I want. It seems to me that using the STR() function should convert the numeric date to a string that could then be inserted. I don’t know whether there is a textbox property I should be setting at design time that would eliminate the “clearing” effect of the Date function. Can anyone help me? I thank any of you in advance for helping me.