Error en tabla dinamica

Hola espero me puedan colaborar, mi situacion es la siguiente tengo en una hoja de excel un formulario con el cual ingreso unos datos, despues de ello trabajo estos datos con una tabla dinamica para hacerles un seguimiento. Lo que me esta pasando es que cuando escribo en los textbox del formulario me ubica en las celdas el valor numerico con formato texto y es por esto que al utilizar la tabla dinamia al momento de sumar los valores que necesito observar me aparece el error #¡DIV/0!.
mi pregunta es como hago para que cuando ingrese los valores numericos a los textbox no me deje el dato con formato TEXTO y en cambio si me lo deje con formato NUMERO.
ahi dejo la macro que estoy utilizando.
Private Sub AGREGARButton1_Click()
'Nos situamos al principio
Range("B3").Select
'Bajamos hasta encontrar la fila vacía
Do While Not IsEmpty(ActiveCell)
'Bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop
'grabamos los datos en la primera fila vacía
'primero el nombre del producto
ActiveCell = TEXTLUGAR
'pasamos a la siguiente columna
ActiveCell.Offset(0, 1) = TEXTCALIBRADO
ActiveCell.Offset(0, 2) = TEXEQUIPO
ActiveCell.Offset(0, 3) = TEXUBICACIÒN
ActiveCell.Offset(0, 4) = TEXZONA
ActiveCell.Offset(0, 5) = TEXUNIDAD
ActiveCell.Offset(0, 6) = TEXFECHA
ActiveCell.Offset(0, 7) = TEXAÑO
ActiveCell.Offset(0, 8) = TEXVARIABLE
ActiveCell.Offset(0, 9) = TEXVARIACION
ActiveCell.Offset(0, 10) = TEXERRORMAX
ActiveCell.Offset(0, 11) = TEXERRORMIN
ActiveCell.Offset(0, 12) = TEXPROM
'limpiamos los textbox
TEXAÑO = ""
TEXEQUIPO = ""
TEXERRORMAX = ""
TEXERRORMIN = ""
TEXPROM = ""
TEXFECHA = ""
TEXTCALIBRADO = ""
TEXTLUGAR = ""
TEXUBICACIÒN = ""
TEXUNIDAD = ""
TEXZONA = ""
TEXVARIACION = ""
'ponemos el focus en el Texlugar
TEXTLUGAR.SetFocus
End Sub
Espero puedan colaborarme
Gracias