Textbox to update into date format

[Patriot2879]

Hi, good afternoon, i have the code below, where if i enter a date into the text box like 121219 or 12122019 it should convert to 12/12/2019 but it doesn't it either says date incorrect or change it to 23/23/2023 which is wrong, please can you help.

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 Dim dtTmp As Date
 Cancel = False
 On Error GoTo err_baddate
 dtTmp = CDate(Me.TextBox1.Text)
 Me.TextBox1.Text = dtTmp
 On Error GoTo 0
sub_ex:
 Exit Sub
err_baddate:
 MsgBox "Bad date", vbOKOnly + vbExclamation
 Cancel = True
 Resume sub_ex
 End Sub

 

[Jeffrey Mahoney]

Please try this:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)  Dim A As String
 
  A = TextBox1.Text
  
  If IsDate(TextBox1.Value) Then
    Exit Sub
  ElseIf Len(TextBox1.Text) = 8 And InStr("/", A) = 0 Then
    TextBox1.Text = Left(A, 2) & "/" & Mid(A, 3, 2) & "/" & Right(A, 4)
  ElseIf Len(TextBox1.Text) = 6 And InStr("/", A) = 0 Then                                    'Assumes two digit year
    TextBox1.Text = Left(A, 2) & "/" & Mid(A, 3, 2) & "/" & "20" & Right(A, 2)
  Else
    MsgBox "The format for the date must be either mm/dd/yyyy or mmddyyyy; please try again"
    Cancel = True
  End If
 
 
 End Sub

 

[Patriot2879]

This is great thank you for your help