Userform Textbox date confirm

[cerins4ever]

Hi guys!
I have problem with data entry in text box.
I wanto to entry date lika 08.09.2014 or 08/09/2014, but if i entry other info. lika text abd or number 12.5 i need to textbox show that i have wrong info.

I have code wich work only with numbers but not with date

Private Sub TextBox7_Change()    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
        
            If Not IsDate(.Text) And .t <> vbNullString Then


                MsgBox "Sorry, only numbers allowed"


                .Value = vbNullString


            End If


        End With


    End If
End Sub

 

[Andrew Poulsom]

Maybe you can adapt the code in Post #6 here:

http://www.mrexcel.com/forum/excel-questions/317066-force-textbox-date-format.html

 

[AlphaFrog]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] TextBox7_Exit([color=darkblue]ByVal[/color] Cancel [color=darkblue]As[/color] MSForms.ReturnBoolean)
    [color=darkblue]With[/color] Me.TextBox7
        [color=darkblue]If[/color] Len(.Value) [color=darkblue]Then[/color]
            .Value = Replace(.Value, ".", "/")
            [color=darkblue]If[/color] [color=darkblue]Not[/color] IsDate(.Value) [color=darkblue]Then[/color]
                MsgBox "Please enter a valid date. ", vbExclamation, "Invalid Entry"
                Cancel = [color=darkblue]True[/color] [color=green]'cancel textbox exit[/color]
            [color=darkblue]End[/color] [color=darkblue]If[/color]
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[cerins4ever]

Thanks a lot AlphaFrog you help me a lot, code is working.
Only now i need to figure out how to format amercian date to Euro date.
Thank you!