Excel - Integrar un for en macro

Private Sub cmb_cod_Client_Change() 'SELECCION DE CLIENTE

Sheets("Clientes").Activate

If cmb_cod_Client = Empty Then

cmb_cod_Client.ListIndex = 0

cmb_cod_Client.SetFocus

End If

var3 = cmb_cod_Client.Column(0) 'Cod Cliente RIF/CI

Cells.Find(What:=cmb_cod_Client.value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

        , SearchFormat:=False).Activate

'xxxxxxxxx

ESTE EL For A INTEGRAR A LA MACRO

'For a = 1 To 6

'Cells(a, 1) = Me.Controls("TextBox" & a)

'Next a

'xxxxxx

'AQUI QUIERO NO ESCRIBIR TANTOS TextBox y reemplazar eso por un conteo For o com ose llame o diga

If var3 = ActiveCell Then

TextBox1 = ActiveCell.Offset(0, 1) 'Nombre

TextBox2 = ActiveCell.Offset(0, 2) 'Direccion

TextBox3 = ActiveCell.Offset(0, 3) 'Pueblo/Ciudad

TextBox4 = ActiveCell.Offset(0, 4) 'Telefono 1

TextBox5 = ActiveCell.Offset(0, 5) 'Telefono 2

TextBox6 = ActiveCell.Offset(0, 6) 'Fecha

End If

End Sub

Private Sub UsandoArray()

Dim v As Variant, txt As MSForms.TextBox

Dim i%

v = Array(TextBox1, TextBox2, TextBox3)

Range("A1").Activate

For i = 0 To UBound(v)

    Set txt = v(i)

    txt.Text = ActiveCell.Offset(0, i)

Next

End Sub

Private Sub UsandoFuncion()

Dim i%, txt As MSForms.TextBox

Range("A1").Activate

For i = 1 To 3

    Set txt = GetTxt("Textbox" & i)

    If Not txt Is Nothing Then

       txt.Text = ActiveCell.Offset(0, i - 1)

    End If

Next

End Sub

Function GetTxt(ByVal sName As String) As MSForms.TextBox

Dim ctl As Control

Set GetTxt = Nothing

For Each ctl In Me.Controls

    If VBA.UCase(ctl.Name) = VBA.UCase(sName) Then

       Set GetTxt = ctl

       Exit For

    End If

Next

End Function