Form1.txtCity.value=ucase(Form1.txtCity.value)