I assume you only want to work with text boxes so TypeOf limits this accordingly.

Dim ctl As Control

For Each ctl in Controls
   If TypeOf ctl is TextBox Then
      ctl.Text = UCase(ctl.Text)
   End If
Next 'ctl