Form1.txtAddr2.value=ucase(Form1.txtAddr2.value)