Excel - ayuda con macro

quiero imprimir en una celda de excel diferentes leyendas,
estas se definirán con la cuarta posición de mi cadena escrita en un textbox
mi texboxt se le ingresaran únicamente 6 caracteres numéricos, pero dependiendo de la cuarta posición de esta, se imprimirá una leyenda
ejemplo :
198125
197294
198319
En este caso los números a calcular serian 1,2 y 3
Si es 1 imprimir leyenda el número es uno
Si es 2 imprimir leyenda el número es dos
Si es 3 imprimir leyenda el número es tres

Tengo este codigo pero no se que esta mal o que me falta.
Private Sub TextBox3_Change()
If Mid(TextBox1, 4, 1) = 1 Then Sheets("HOJA1").Cells(5, 5) = " el numero es uno
"
Else
If Mid(TextBox1, 4, 1) = 2 Then Sheets("HOJA1").Cells(5, 5) = " el numero es dos
"
Else
If Mid(TextBox1, 4, 1) = 3 Then Sheets("HOJA1").Cells(5, 5) = " el numero es tres
"
End If
End Sub

Gracias:

Muy buenas,

el macro funciona al cambiar TextBox3, pero luego la cadena sobre la que se hace la comparación es TextBox1 ¿es eso lo que quieres?

Un saludo. Juanjo.

puede ser que en la comparación de igualdad debe ir el número entre comillas

= "1" en lugar de = 1

Saludos, desde Baires, JuanC

Si deseas yo tengo la planilla Excel programada en Visal Basic que controla los gastos reales por cuenta y centro costos mas los movimientos de bodega a precios promedio. Puedo compartila libremente solo a VERDADEROS Interesados, escribeme a: [email protected] para enviartela

perdon por mi error todo sobre un textbox