Public MYFORMS As New Collection
Public loadfrm As Form1
 
Public Function LoadNewForm() As Long
       Static n As Long
 
       n = n + 1
       Set loadfrm = New Form1
       loadfrm.Show
       MYFORMS.Add loadfrm,CStr(n)
 
        LoadNewForm = n
End Function
 
Public Sub DeleteForm(Byval frmNr As Long)
        MYFORMS.Remove CStr(frmNr)
End Sub

MYFORMS(1).Caption = "Text " & CStr(1)