Iterate thru specific controls in a form using a loop

Question

If I want to iterate only the txt3, txt6, txt8, and txt9 and multiply their values by 2, I can type it as shown below, but how can I accomplish it using a loop? Let's say I have 10 textboxes on a form labeled txt1 to txt10.

txt3.value = txt3.value * 2
txt6.value = txt6.value * 2
txt8.value = txt8.value * 2
txt9.value = txt9.value * 2

Answer 1

The textbox numbers you want to iterate should first be stored in an array. Then, using a for loop, iterate through that array and carry out your desired operation. Try the sub below.

Private Sub CommandButton1_Click()
Dim arr
Dim i As Long

    arr = Array(3, 6, 8, 9)
    
    For i = LBound(arr) To UBound(arr)
        Me.Controls("TextBox" & arr(i)) = Me.Controls("TextBox" & arr(i)) * 2
    Next i

End Sub