Handle Run Time Error

[fastcar]

Hi There,

I have a VBA fill in form that works great however is for some reason someone was to type the date in wrong for example 12032018 without / or - I get a run time error.

What I would like to do is just have a simple box come up to say "you have typed in something wrong please check all your entries and click the update button again."

Is this possible?

This is the VBA code I am using

Private Sub CommandButton1_Click()
row_number = 0
Do
DoEvents
row_number = row_number + 1
item_in_review = Sheets("Driver Data Input").Range("A" & row_number)
    If item_in_review = ComboBox1.Text Then
        TextBox1.Text = Sheets("Driver Data Input").Range("L" & row_number)
        TextBox2.Text = Sheets("Driver Data Input").Range("M" & row_number)
        TextBox3.Text = Sheets("Driver Data Input").Range("N" & row_number)
        TextBox4.Text = Sheets("Driver Data Input").Range("O" & row_number)
        TextBox5.Text = Sheets("Driver Data Input").Range("P" & row_number)
        TextBox6.Text = Sheets("Driver Data Input").Range("Q" & row_number)
        TextBox7.Text = Sheets("Driver Data Input").Range("R" & row_number)
        TextBox8.Text = Sheets("Driver Data Input").Range("S" & row_number)
        TextBox9.Text = Sheets("Driver Data Input").Range("T" & row_number)
        TextBox10.Text = Sheets("Driver Data Input").Range("U" & row_number)
        TextBox11.Text = Sheets("Driver Data Input").Range("AJ" & row_number)
        End If
        
        Loop Until item_in_review = ""
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
row_number = 0
Do
DoEvents
row_number = row_number + 1
item_in_review = Sheets("Driver Data Input").Range("A" & row_number)
    If item_in_review = ComboBox1.Text Then
        Sheets("Driver Data Input").Range("L" & row_number) = TextBox1.Text
        Sheets("Driver Data Input").Range("M" & row_number) = CDate(TextBox2.Text)
        Sheets("Driver Data Input").Range("N" & row_number) = TextBox3.Text
        Sheets("Driver Data Input").Range("O" & row_number) = TextBox4.Text
        Sheets("Driver Data Input").Range("P" & row_number) = CDate(TextBox5.Text)
        Sheets("Driver Data Input").Range("Q" & row_number) = CDate(TextBox6.Text)
        Sheets("Driver Data Input").Range("R" & row_number) = TextBox7.Text
        Sheets("Driver Data Input").Range("S" & row_number) = CDate(TextBox8.Text)
        Sheets("Driver Data Input").Range("T" & row_number) = TextBox9.Text
        Sheets("Driver Data Input").Range("U" & row_number) = CDate(TextBox10.Text)
        Sheets("Driver Data Input").Range("AJ" & row_number) = CDate(TextBox11.Text)
        
        End If
        
        Loop Until item_in_review = ""
End Sub



Private Sub UserForm_Click()

End Sub

Thanks