Form1.txtComp.value=ucase(Form1.txtComp.value)