EXCEL VBA

This is the full vba code

'///////////////////////////////////////////////////////////////////////////////////////////////////////

Public asynconn As New pfcls.CCpfcAsyncConnection
Public conn As pfcls.IpfcAsyncConnection
Public session As pfcls.IpfcBaseSession
Public model As pfcls.IpfcModel

Sub model_session()
'// Displays the name of the model in the current session
Set conn = asynconn.Connect("", "", ".", 5)
Set session = conn.session
Set model = session.CurrentModel

On Error GoTo E01

If model Is Nothing Then

Err.Raise 5001, , "▶ No models are currently active ◀"

End If

Exit Sub

E01:

MsgBox "Error Number: " & Err.Number & vbNewLine & _
"Error Description: " & Err.Description
Err.Clear

End Sub

'///////////////////////////////////////////////////////////////////////////////////////////////////////

Sub componentcopy()

'// current session connection
file_name.model_session

Dim Solid As IpfcSolid
Dim Assembly As IpfcAssembly
Dim componentFeat As IpfcComponentFeat

Dim CreateModelDescriptor As New CCpfcModelDescriptor
Dim ModelDescriptor As IpfcModelDescriptor

'// Load model from "rod_nut.prt" file into Session
Set ModelDescriptor = CreateModelDescriptor.CreateFromFileName("rod_nut.prt")
Set Solid = session.RetrieveModel(ModelDescriptor)

Set Assembly = model
Set componentFeat = Assembly.AssembleByCopy("C:\PTC\WORK90\JP100.PRT", Solid, True)

'Cleanup
Set asynconn = Nothing
Set conn = Nothing
Set session = Nothing
Set model = Nothing

End Sub

'///////////////////////////////////////////////////////////////////////////////////////////////////////

Public model As pfcls.IpfcModel
Set model = session.CurrentModel
Dim Assembly As IpfcAssembly
Set Assembly = model

. The "model" variable holds information about the currently active assembler file
. Assigned "model" information to "Assembly" variable

Dim componentFeat As IpfcComponentFeat
Set componentFeat = Assembly.AssembleByCopy("C:\PTC\WORK90\JP100.PRT", Solid, True)

. I am getting an error in the code above
. "C:\PTC\WORK90\JP100.PRT", I also tried typing "JP100.PRT"
. I also tried changing the file name to lower case.
.  I am not a program development expert. I am making a simple program with the help of chatgtp.
   The creo vba code provided by chatgtp cannot be used. But I'll give you a hint.
.  mapkey cannot be configured with chatgtp  ^_^

please correct

e-mail : korealionkk@gmail.com