Userform-Objekte per Variable ansprechen

sub test()
Dim x As Integer
Dim y As Worksheet
For x = 1 To 3
Set y = ActiveWorkbook.Worksheets(x)
MsgBox y.[a1]
MsgBox y.Name
Next
End Sub

Ich möchte aber so etwas auch für UserForm-Elemente. Da für die einzelnen Elementegruppen leider kein Index vorhanden ist habe ich mir folgendes gedacht:

sub test()
Dim x As Integer
Dim y As Textbox

For x = 1 To 3
Set y = "Textbox" & x
MsgBox y.Text
Next
End Sub

Das geht aber nicht. Hat jemand eine Idee?

Thomas