Não entendi o que considera "descarregar"
Mas genericamente para um loop em controles de formulario pode-se utilizar:

Private Sub tLoop()
Dim ctr As Control
For Each ctr In Controls
'todos os controles que iniciam com TextBox, e não seja o 5
    If ctr.Name Like "TextBox*" And ctr.Name <> "TextBox5" Then
    MsgBox ctr.Name
    End If
Next
End Sub

ericsson,

Bom Dia!

Veja um pequeno exemplo no arquivo anexo.

Adaptando Reinaldo:

Private Sub tLoop()
Dim ctr As Control
dim cnt as long
cnt = 1
For Each ctr In Controls
    If ctr.Name Like "GMBSB*" Then
        CELLS(cnt,1).value = ctr.text
        cnt=cnt+1
    End If
Next
End Sub

vlw pessoal deu certo.