TextBox Error Handling issue

Private Sub TextBox1_Change()
    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    If Len(Me.TextBox1.Value) > 6 Then
        MsgBox "Error!"
        Me.TextBox1.Value = Left(Me.TextBox1.Value, 6)
    End If
    
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    
    If Len(Me.TextBox1.Value) < 6 Then
        Exit Sub
    End If
    
    With ws
        .Cells(lRow, 1).Value = Me.TextBox1.Text
        Me.TextBox1.Value = Left(Me.TextBox1.Value, 6)
        TextBox2.SetFocus
    End With
    
End Sub

Private Sub TextBox2_Change()
    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    If Len(Me.TextBox2.Value) > 10 Then
        MsgBox "Error!"
        Me.TextBox2.Value = Left(Me.TextBox2.Value, 10)
    End If
    
    If Len(Me.TextBox2.Value) < 10 Then
        Exit Sub
    End If
    
    lRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
    
    With ws
        .Cells(lRow, 2).Value = Me.TextBox2.Text
        Me.TextBox2.Value = Left(Me.TextBox2.Value, 10)
        TextBox1.SetFocus
    End With
End Sub

try this instead

not a problem
i wasnt sure how exactly it was meant to be react but its good you know enough VBA to amend yourself