How To Convert Lower Case to LOWER Case using VBScript

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