Excel - Minusculas a mayusculas

hola amigos
Tengo el siguiente codigo en un texbox de un formulario, y me gustaria incluir dentro de el un codigo para convertir todo el texto de ese textbox a mayusculas
Agradecido

Private Sub TextBox3_Change()
Range("c5").FormulaR1C1 = TextBox3
End Sub

Private Sub TextBox3_Change()
Range("c5").FormulaR1C1 = UCase(TextBox3)
End Sub

Abraham

Gracias amigo. Un apunte mas.
De que manera se podrian ver las mayusculas en un textox.
Saludos