Visual Basic para Aplicaciones - limpiar textbox

Hola amigos de LWP, tengo un userform con varios textbox para registrar información a una hoja de calculo excel 2010 y me funciona bien… el problema que tengo, es que al querer limpiar los textbox para otro registro no me lo permite ya que estoy utilizando el siguiente codigo….porque requiero validar la información
En textbox1….
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) And TextBox1.Text <> "" Then
Beep
MsgBox "Se debe ingresar solo números"
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub

Y en textbox2….
Private Sub TextBox2_Change()
TextBox2.Text = UCase(TextBox2.Text)
If IsNumeric(TextBox2) Then
Beep
MsgBox "Se debe ingresar solo Texto"
TextBox2.Text = ""
TextBox2.SetFocus
End If
If TextBox2.Text = " " Then
Beep
MsgBox "Se debe ingresar solo Texto"
TextBox2.Text = ""
TextBox2.SetFocus
End If
End Sub
De antemano gracias por su apoyo……….. su amigo Jorge

Al final de la rutina, antes del End Sub coloca esto


Al final para que al terminar la ejecucion de la macro, te limpia todos los TextBox aunque su nombre haya sido cambiado, es decir no sean TextBox1 TextBo2 ect

Tambien para que si su nombre de todos los TextBox es TextBox1, TextBox2 ect, este te servirá

Si es la respuesta, contesta gracias, si no solo dilo porque no y que es lo que pretendes precisamente

Uando la macro que tienes, no te deja que escribas CUALQUIER letra que no sea número.

Aunque le metas numeros y entremedio de los números quieras meterle alguna letra, NO te lo permite y limpia el TextBox.
Limpiar los textbox, ¿son TextBox1 y 2? ya te los limpia, al escribir cualquier letra o, no inicio de entender lo que pretendes

gracias.........................................