Private MyForms As New Collecten
Private newForm As Form1
 
Private Sub AddNewForm()
        Static n As Long
        Set newForm = New Form1
        With newForm
                .Tag = Cstr(n)
                .Caption = "Irgendeine Form mit der Nr.: " & Cstr(n)
                .Visible = True
         End With
         MyForms.Add newForm, Cstr(n)
         n = n + 1
End Sub