Dim C As Control, Liste() As String, Z1 As Long
 
Z1 = 0
ReDim Liste(0)
For Each C In Me.Controls
  If TypeOf C Is TextBox Then
    ReDim Preserve Liste(Z1)
    Liste(Z1) = C.Text
    Z1 = Z1 + 1
  End If
Next C

Gruss,

Zardoz