text box in a form

[Eddie G.]

Is there a way to format a text box in a form so that I can enter a date like this: 110502 and have appear in the text box like this: 11/05/02? I can't find any way to do it in the properties window of the text box. I don't want to have to type in the / symbol.

 

[Colo]

Hi Eddie,

Pls put this code on your Userform.
Change the event Exit to suit your needs.

<PRE>
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
If IsDate(.Text) Then Exit Sub
.Text = Format(DateSerial(Right(.Text, 2), _
Left(.Text, 2), Mid(.Text, 3, 2)), "MM/DD/YY")
End With
End Sub
</PRE>