sub TextToUpperCase(FieldId,TextToChange)
on error resume next
   document.getElementById(FieldId).value=Ucase(document.getElementById(FieldId).value)
end sub 

sub TextToEmptyField(FieldId)
on error resume next
   document.getElementById(FieldId).value=""
   if err.number<>0 then document.all(FieldId).value=""
end sub