Code cycles through specific range of textboxes

First off, apologies for the Title - it should have read "Code cycles through. . . ", but can't see how to correct it!

Hope someone can solve this for me.

User Form has various "blocs" of Textboxes, which have different formats.

I want a Code that says for Textbox numbers a to b, do this, and for Textbox numbers x to y do something else.

I have tried three approaches and none of them work:

Private Sub UserForm_Activate()


    Dim i As Integer, Control As Variant
        
'First Approach to put Zero in boxes 3 - 145:


    For Each Control In Array(Me.TextBox3, Me.TextBox145)
    Set Value = 0
    Set Format = Number("0.00")
    Next


'Second Approach to put Zero in boxes 3 - 145:
     
    For i = 3 To 145
    Controls("Textbox" & i).Value = 0
    Controls("Textbox" & i).Format = NUmber("0.00")
    Next I
    
 'Third approach to put Zero in boxes 3 - 145:


    For Each Control In UserForm1.Controls
    If TypeName(Control) = ("TextBox" & I) Then
       IF i <146 then
       Control = FormatNumber("0.00")
       Control.Value = 0
      End If
   End if
  Next
       
End Sub

All solutions accepted gratefully

Ochimus

Re: Cide cycltes through specific range of textboxes

Smu,

Many thanks for amending the title.

Unfortunately your approach "ain't hackin' it" because it goes through ALL the Textboxes.

As I explained, I need something that works just on a specific bloc of Textboxes - in this example between Textbox3 to Textbox145 - to make them a Zero and format the box to two decimal places.

Because another bloc - say Textboxes 206 - 229 will be percentages, or currency, or whatever.

Ochimus