Is there a way to rewrite this code for a UserForm in loop form?

I don't know how to rewrite this in loop form because the numbers are attached to the word i.e. "textbox1" instead of textbox(1). I know how to loop through the cells, but not through the different textboxes.

With Worksheets("Sheet1")

    .Cells(20, 1) = TextBox1.Value
    .Cells(21, 1) = TextBox2.Value
    .Cells(22, 1) = TextBox3.Value
    .Cells(23, 1) = TextBox4.Value
    .Cells(24, 1) = TextBox5.Value
    .Cells(25, 1) = TextBox6.Value
    .Cells(26, 1) = TextBox7.Value
    .Cells(27, 1) = TextBox8.Value
    
    .Cells(20, 2) = ListBox1.Value
    .Cells(21, 2) = ListBox2.Value
    .Cells(22, 2) = ListBox3.Value
    .Cells(23, 2) = ListBox4.Value
    .Cells(24, 2) = ListBox5.Value
    .Cells(25, 2) = ListBox6.Value
    .Cells(26, 2) = ListBox7.Value
    .Cells(27, 2) = ListBox8.Value

End With

Originally Posted by bananajelly

I don't know how to rewrite this in loop form because the numbers are attached to the word i.e. "textbox1" instead of textbox(1). I know how to loop through the cells, but not through the different textboxes.

With Worksheets("Sheet1")

for x = 1 to 2

for i = 1 to 8
    .Cells(19 + i, x ) = TextBox & i.Value
next i

next x

End With

I don't know if that would work or not....untested

Try this.

With Worksheets("Sheet1")
    For I = 20 To 27
        
    .Cells(I, 1) = Me.Controls("TextBox" & I - 19).Value
    .Cells(I, 2) = Me.Controls("ListBox" & I - 19).Value
    Next I
End With