Copier contenu textbox avant erreur

Bonjour,

J'aimerai savoir comment copier le contenu d'un textbox avant qu'une erreur arrive dans mon code. Quelle est la commande à utiliser ? Voici un bout de code

Private Sub TextBox1_Change()
On Error GoTo fin
Me.ComboBox1.Clear

Me.ComboBox3.Clear

x = Me.TextBox1.Value
a = (Day(x) & Month(x) & Year(x))
x = Format(x, a)
    Me.ComboBox1.Visible = True

    If Worksheets(a).Index < 1 Then
    MsgBox ("La date n'est pas valide")
    Else
    lig = Sheets(a).Range("M" & Rows.Count).End(xlUp).Row
        For i = 2 To lig
            Me.ComboBox1.AddItem Sheets(a).Range("M" & i)
        Next i
    End If
    Exit Sub

fin:
    MsgBox ("Une erreur est survenue : Attention ne pas modifier la date ou saisir un mauvaise date")
    Unload Me
    UserForm1.Show
End Sub

Merci pour votre aide !

C'est le textbox2 qui doit conserver sa valeur en cas d'erreur

Bonjour,

C'est le textbox2 qui doit conserver sa valeur en cas d'erreur

le textbox2 de quel UserForm ?

UserForm1