Catia vba macro for creating and naming parts and products

Catia vba macro for creating and naming parts and products

I already created some code for creating part but just don’t know how to connect userform
Idea is to instead of this yellow line to have user form where we can pick some data and based on that we will make name for the file
For now you can add in drop box what ever you want. I will correct it later when I receive inforations

It should go like this:

Sub CATMain()
Dim Part_Name As String
Part_Name = InputBox("Please enter part name and use define profile")
Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Add("Part")
Set product1 = partDocument1.GetItem("Part1")

product1.PartNumber = Part_Name

End Sub

Code doesn’t has to be the same you have freedom for that
And this is the userform which we has to use