Yo lo hago asi por ejemplo:
En el modulo:
Cita: Public Function Convierte_Mayusculas(cadena as String) as String
Convierte_Mayuscula = UCase(cadena)
end sub
En el evento simplemente lo llamas e igualas:
Cita: Nombre_Mayusculas = Convierte_Mayusculas(Nombre)
Ojala sea a lo que te refieres y te ayude.