Как через цикл добавить значения TextBox в документ excel VBA (Visual Basic)

'Кнопка добавить данные
Public Sub ButtonAdd_Click()
 Dim i, n, k As Integer

 n = Range("A2").CurrentRegion.Rows.Count + 1
 k = n + 3
 For i = 1 To 4
    Cells(n, i + 1).Value = " & TextBox & i & "   
    Next
'Без цикла это работало так
        'Cells(n, 1) = TextBox1
        'Cells(n, 2) = TextBox2
        'Cells(n, 3) = TextBox3
        'Cells(n, 4) = TextBox4
        
End Sub