Limpiar Campo

Tengo un cuadro de texto en el cual un usuario cualquiera debe teclear su
número de identificación personal, si el usuario tecleo bién sus datos los
mostrara en pantalla de lo contrario saldra un mensaje de error y le comunica
que intente de nuevo. Deseo obtener una instrucción para que limpie el campo
cuando se produzca un error o cuando se abra el archivo de nuevo pues siempre
queda la identificación del usuario que entró por última vez.

Este es el código que estoy utilizando.


Private Sub commandbutton1_click()
Dim r1 As Range, r2 As Range
Dim vale As Boolean, i As Integer
If Len(TextBox1.Value) = 0 Then
MsgBox ("Codigo de Usuario no Existe. Intente de Nuevo.")
Else
Worksheets(2).Range("B9").Activate
Do While Not IsEmpty(ActiveCell)
For i = 0 To 12
ActiveCell.Offset(0, i).Value = ""
Next
ActiveCell.Offset(1, 0).Activate
Loop
Worksheets(2).Range("B9").Activate
Set r2 = ActiveCell
Worksheets(1).Activate
Worksheets(1).Range("A2").Activate
vale = False
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = TextBox1.Text Then
vale = True
Set r1 = ActiveCell
For i = 0 To 12
X = r1.Offset(0, i).Value
r2.Offset(0, i).Value = X
Next
Set r2 = r2.Offset(1, 0)
End If
ActiveCell.Offset(1, 0).Activate
Loop
Worksheets(2).Activate
If vale Then
MsgBox ("Estimado Usuario Verifique sus Datos personales,
seleccione un tipo de solicitud y haga una pequeña descripción.")
Else
MsgBox ("Código no Existe")
End If
End If
End Sub

Agradezco de antemano a la persona que gentilmente me pueda colaborar.