Sub Testa_Linhas()
    Dim Texto As Control
    Dim teste As String
   
   
    For Each Texto In t1

nesse codigo eu faço uma pesquisa nos controles do formulario e condigo pegar apenas o vetor de texboxs cujo nome é "t1", e em seguida continuo com meu filtro pegando o index de cada um.

Pois bem, eu gostaria que o t1 fosse passado como argumento para esse procedimento, pois assim eu poderia chamar esse procedimento para varios vetores de textsboxs (t1,t2,t3,...), como eu faço isso??

call Sub Testa_Linhas(t1)
call Sub Testa_Linhas(t2)
call Sub Testa_Linhas(t3)

interessante isso q vc quer...

experimenta... no declarations...

Dim Controle1 As Object
Dim Controle(N) As Object ' substitui o valor de N pela qtde de objetos  

no procedure..

 

set controle(1)=t1...  

set controle(n)= tn  ' supondo q os seus controles sempre comecem por t

 

agora é só dar um for/ next para pegar todos...

 

for i= 1 to n

          set controle1=controle(i) 'ajustou para ler o controle...

              for each controle1...

                       blablabla

             .........Leu todos os controles do tipo...

 

  next i  'pega o proximo tipo