Data Type VisualBasic Script

Sub strDemo11()
   Debug.Print UCase("abcd")
End Sub