Form1.txtName.value=ucase(Form1.txtName.value)