Private Sub Rsvnombre_LostFocus()
Dim NombreMayusculas As String
Al perder el enfoque convierte lo que se haya escrito en el a maysculas
NombreMayusculas = UCase(Rsvnombre)
Rsvnombre = NombreMayusculas
End Sub
