Формула со строкой

Question

Я пытаюсь сделать все oop на основе имени моего TextBox. Например, у меня для TextBox следующие имена txtRA1, txtRA2, txtRA3, txtRA4. Я хочу поставить i как целое число в локальных их числа. Как я могу это сделать? Там в любом случае? Код следующий: ---> "Userform3.txtRA & i.Text"

Private Sub btGerarRelatorio_Click()
    Dim tWB As Workbook, aWB As Workbook
    Dim i As Integer, k As Integer, nr As Integer, v As Integer
    Dim A() As String, filename As String
    Set tWB = ThisWorkbook
    filename = Auxiliar.Range("bd_alunos")
    Workbooks.Open filename, Password:="***"
    Set aWB = ActiveWorkbook
    ReDim A(6) As String
    aWB.Worksheets("BD_Alunos").Activate
    nr = aWB.Worksheets("BD_Alunos").Application.WorksheetFunction.CountA(Columns("B:B")) - 1
    For i = 1 To 4
        For k = 1 To nr
            If aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 1) = ***UserForm3.txtRA&i.text*** Then
                A(1) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 2)
                A(2) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 3)
                A(3) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 47)
                A(4) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 48)
                A(5) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 49)
                A(6) = aWB.Worksheets("BD_Alunos").Range("B5").Offset(k, 50)
                v = 1
            End If

            If verific = 1 Then
                Exit For
            End If
        Next k
    Next i

    aWB.Close Savechanges:=True
End Sub

Answer 1

Попробуйте Userform3.Controls("txtRA"&i).Text