Form1.txtEmail.value=ucase(Form1.txtEmail.value)