Form1.txtAddr1.value=ucase(Form1.txtAddr1.value)