Inserting Date into Userform Testbox

[raschwab]

I am endeavouring to insert a date into a textbox on a userform, using the following code:

Private Sub tbDate_Change()
    Me.tbDate.Value = Format(Me.tbDate.Value, "dd mmm yy")
End Sub

I initialized the testbox to reflect the current date; however, when I attempt to alter the date, a revised date appears as soon as I enter the first character of the date that I want.

Any help/advice would be most appreciated.

 

[Domenic]

The Calendar control might be the best bet, but it isn't necessarily going to be available to everyone.

Yeah, that's true... Thanks Norie!