Código VBA para TextBox con más de 10 campos en un UserForm

Para este caso utilizo un CommandButton que me vincula con un UserForm el cual contiene 26 TextBox, la idea es que los 26 campos de fila seleccionada en el listBox pasen a los TextBox, modificar alguno si es el caso y nuevamente pegar la información en una tabla de excel

El código que anexo a continuación funcionó a la perfección en otro caso en donde solo trabajaba con 8 columnas.

Me gustaría que me ayudaran revisando los códigos que anexo y me regalen los ajustes correspondientes.

'Traer el UserForm con los 26 TextBox para modificar los datos

Private Sub CommandButton6_Click()
If Me.ListBox1.ListIndex < 0 Then
MsgBox "No se ha elegido ningún registro", vbExclamation, "Inspecciones"
Else
UserForm2.Show
End If
End Sub

'Trae los datos de la fila seleccionada en el ListBox

Private Sub UserForm_Click()
For i = 1 To 8
Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value
Next i
End Sub

'Pega los datos de los TextBox en la tabla de excel
Private Sub CommandButton1_Click()
For i = 1 To 8
ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value
ActiveCell.Offset(0, 2).Value = Format(TextBox3, "mm/dd/yyyy")
Next i
Unload Me
End Sub