Sub FormBuilder()
    Dim frm As VBComponent
    Dim lbl As Object
    
    Set frm = _
      ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
    
    With frm
        .Properties("Height") =  50 
        .Properties("Width") =  100 
        .Name = "UserForm1"
        .Properties("Caption") = "Test Form"
    End With
    
    Set lbl = frm.Designer.Controls.Add("Forms.Label.1")

    With lbl
        .Name = "Label1"
        .Caption = "Test Message!"
        .Left =  10 
        .Top =  10 
        .Height =  20 
        .Width =  80 
    End With
End Sub