Visual Basic para Aplicaciones - texto de minusculas a mayusculas

Hola, me podrían indicar si hay alguna función para que un texto ingresado por el usuario y que previamente es guardado en una variable, siempre este en mayúsculas?

Gracia por sus sugerencias, saludo.

Nota estoy trabajando con macros en Excel 2003

Gracias por la ayuda.

saludos

Aqui te mando un ejemplo:

Recuerda UCase es para convertir a Mayúscula y LCase para convertir a minúscula.

Private Sub cmdCambiar_Click()
'Variable para almacenar el total de los caracteres leidos.
Dim TotalCaracterLeido As Integer
TotalCaracterLeido = 0 'Iniciamos va variable en 0.
'Repetimos mientras la longitus da la caja de texto es mayor que el total de caracteres leidos.
Do While Len(txtContenido.Text) > TotalCaracterLeido
TotalCaracterLeido = TotalCaracterLeido + 1 'Incrementamos el total de caracteres en 1.
'Colocamos el punto de insercion delante del carácter a leer.
txtContenido.SelStart = TotalCaracterLeido - 1
txtContenido.SelLength = 1 'Seleccionamos el caracter.

'Convertimos el caracter seleccionado a mayúscula.
txtContenido.SelText = UCase(txtContenido.SelText)
Loop 'Volvemos a repetir hasta que se lean todos los caracteres de la caja.

End Sub

Espero que te sea util TONI