Mimic ENTER on Userform TextBox

[mr_g_99]

I have a userform with several text boxes. One of these boxes is to enter a date, the default text is "mm/dd/yy" and if the entry isn't recognized as a date, the entry is cleared, mm/dd/yy and focus return to the box. However this only works when ENTER is keyed. If I use TAB it just tabs to the next textbox.
Is there a way to get the TAB key to mimic the ENTER key? This would just be for TextBox4 and not the whole form.
Thanks!

 

[igold]

How about this placed in your userform module. The message box can obviously be removed or changed...

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox4 = "" Then Exit Sub
    If Not TextBox4.Text = Format(TextBox4, "mm/dd/yy") Then
        TextBox4.Text = ""
        TextBox4.SetFocus
        Cancel = True
        MsgBox "This Value Must Be A Date In the Proper Format"
    End If
End Sub

 

[igold]

Thanks for the feedback!!

 

[mr_g_99]

How about this placed in your userform module. The message box can obviously be removed or changed...

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox4 = "" Then Exit Sub
    If Not TextBox4.Text = Format(TextBox4, "mm/dd/yy") Then
        TextBox4.Text = ""
        TextBox4.SetFocus
        Cancel = True
        MsgBox "This Value Must Be A Date In the Proper Format"
    End If
End Sub

Works perfectly, much appreciated!
I modified a little to highlight the TextBox

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox4 = "" Then Exit Sub
    If Not TextBox4.Text = Format(TextBox4, "mm/dd/yy") Then
        With TextBox4
            .Text = "mm/dd/yy"
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
        Cancel = True
    End If
End Sub

 

[igold]

I like it, nice touch. I was happy to help and I am glad it worked for you.