Catia VBA Macro-Crete part with naming

Hi everyone, i an new making Catia VBA macros. I started to make VBA macro for creating new part with naming file directly to in macro.
here is the problem that i have:
1. I created the simple code to make catpart (code below) and i would like to change yelow line with usser form like in the picture
Does any one knows how to do that?
Sub CATMain()
Dim Part_Name As String
[highlight #FCE94F]Part_Name = InputBox("Please enter part name and use define profile")[/highlight]


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

I would really appreciate any help

 

[catiavbmacro]

https://catiavbmacro.com/2018/08/11/new-part-catia-macro-tutorial/

 

[ferdo]

https://youtu.be/BYfkSCGtP0k

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2

 

[Aleks_TS]

@catiavbmacro
yes, i made my macro acc this but i would like to replace msg box with userform from the picture above
and I don't know how to do that
any hint?

 

[catiavbmacro]

Hello, I don't use VBA, I use Visual Basic but I think it's the same.

You can go something like this.
Part_Name = textbox.1.text or
Part_Name = label.text