Excel - ayuda con macro y textbox

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 textbox 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 TextBox1_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:

Solo debes de quitar los else y end if

saludos...

atte pedro garcia