Function NewForm(name As String) As Object
    Dim myForm As Object
    'Application.VBE.MainWindow.Visible = False
    Set myForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
    myForm.Properties("Caption") = name
    myForm.Properties("Width") = 300
    myForm.Properties("height") = 270
    VBA.UserForms.Add(myForm.name).Show
    Set CreateForm = myForm
End Function
Sub DelForm(name As Object)
    ThisWorkbook.VBProject.VBComponents.Remove name
End Sub
Sub Start()
    Dim my As UserForm
    Set my = NewForm("MyFormCaption")
    'Call DelForm(my)
    ThisWorkbook.VBProject.VBComponents.Remove my
End Sub