upper case for many textbox

Hi,

There are 300 textbox in the form. I want all text should be in upper case.

I know that I can make it using the following code. But there is any way so that I do not need to repeat the code 300 times ?? Thanks in advance.

Private Sub TextBox1_Change() 
    TextBox1 = UCase(TextBox1) 
End Sub

eg_ckhad