How To Convert Lower Case to Upper Case using VBScript

x=inputbox("Enter String")
For i=1 to len(x) step 1
x=replace(x,mid(x,i,1),ucase(mid(x,i,1)))
Next
msgbox(x)
_____________________________
x=inputbox("Enter String")
For i=1 to len(x) step 1
      y=mid(x,i,1)
      k=ucase(y)
      x=replace(x,y,k)
Next
msgbox(x)