Private Sub Command1_Click()
    On Error GoTo fehler
    Dim x As Long, i As Long, j as Long
    x = 30 ' hier als fixe Anzahl, im DB-Editor dann dynamisch
    For i = 1 To x
         Load sevText1(i)
         With sevText1(i)
            .Caption = "Feldname " & cstr(i)
            .Text = "Wert " & CStr(i)
            .Left = 120
            .Top = ((.Height + 120) * i) + 120
            .Visible = True
         End With
    Next i
    Exit Sub
fehler:
    If Err.Number = 360 Then
        ' Fehler 360, wenn sevText1(i) schon existiert
       For j = sevText1.Count - 1 To 1 Step -1
            Unload sevText1(j)
        Next i
        Load sevText1(i)
        Resume Next
    Else
        MsgBox Err.Number & ": " & Err.Description, vbOKOnly
        Exit Sub
    End If
 
End Sub