Программное создание формы в модуле с помощью vba

Я хочу создать пользовательскую форму в модуле, используя VBA программно. Я новичок и неопытен, поэтому я попробовал несколько примеров, но они не соответствуют моим требованиям.

Я просто хочу макрос, который

• создает пользовательскую форму в модуле с помощью VBA
• имеет ListBox с некоторыми данными
• имеет CommandButton со слушателем

Вот код, который я использовал

Option Explicit

Sub MakeuserForm()
'Dim CommandButton1 As MsForms.CommandBarButton
'Dim ListBox1 As MsForms.ListBox
Dim UserForm1 As VBComponent

Set UserForm1 = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
With UserForm1
.Properties("Height") = 100
.Properties("Width") = 200
On Error Resume Next
.Name = "My Form"
.Properties("Caption") = "This is your user form"
End With
ShowForm
End Sub

Sub ShowForm() 
NewForm.Show 
End Sub 

Теперь я не знаю, как добавить ListBox и кнопку в форму с слушателем.