pasar a mayusculas

¡hola!

Quiero hacer una comparación de dos nombres de personas, y para saber si son
iguales quiero hacer la comparación pasándolos a mayúsculas. ¿como lo hago?.

Es decir, si tengo algo parecido a esto:

Dim miStr as String

miStr = ActiveCell.select.value


me gustaría hacer algo como:

miStr = Mayusculas(miStr).

Gracias por la ayuda que me puedan prestar