Form1.txtSite.value=ucase(Form1.txtSite.value)