Extraer el valor de un TextBox a través de una variable de control

[GeoAvila]

esta rutina la hice yo mira si te sirve y me decis

Código:

Dim a As String
        For Each controlc In Form1.Controls
            If TypeOf controlc Is TextBox Then
                        Me.Enabled = True
                         a = controlc.Name
                        MsgBox controlc.Text
                        MsgBox a
            End If
        Next