La función UCase devuelve la cadena después de convertir la cadena ingresada en mayúsculas.
Sintaxis
UCase(String)
Ejemplo
Agrega un botón y coloca la siguiente función dentro del mismo.
Private Sub Constant_demo_Click()
var = "Microsoft VBScript"
msgbox("Line 1 : " & UCase(var))
var = "MS VBSCRIPT"
msgbox("Line 2 : " & UCase(var))
var = "microsoft"
msgbox("Line 3 : " & UCase(var))
End Sub
Al ejecutar el script anterior, produce el siguiente resultado.
Line 1 : MICROSOFT VBSCRIPT
Line 2 : MS VBSCRIPT
Line 3 : MICROSOFT