Visual Basic - imprimir leyenda

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: