Namen von Textboxes generieren

habe ein großes Problem:

Ich möchte innerhalb einer Procedur die Namen von über 100 Textboxes in meiner Userform generieren. Dazu habe ich eine Schleife angelegt. Leider funktioniert mein Verfahren nicht. Kann mir eventuell hier jemand einen Tip geben. Anbei die kleine Procedur:

Public Sub FillFormDataRamme(aObj As frmRammsondierung, ByRef aData As tDataRamme, Optional aFocus As Integer = 0)
Dim t As String
Dim s As TextBox
Dim i As Integer
#If V1 Then
Debug.Print Time; Tab(10); "FillFormRamme (B/S/Fokus): "; Tab(45); aFocus
#End If
With aObj
.txtBohrungNr = Str$(aData.b.Nummer) & " von" & Str$(aData.V.AnzahlBohrungData)
.txtAuftraggeber = aData.b.Auftraggeber
.txtName = aData.b.Name
.cmbMassstab.ListIndex = aData.b.Massstab
.cmbRammsondierung.ListIndex = aData.b.Art
.txt1 = 0

For i = 2 To 119
t = ".txt" & i 'Hier liegt das Problem!!!
s = t
.s = aData.b.Schlagzahl(i)
Next i

Select Case aFocus
Case 1: .txtName.SetFocus
Case 2: .cmbRammsondierung.SetFocus
End Select
End With
End Sub