macro invetor

Prezado colega

Gostaria de obter alguem para me auxiliar em um aplicativo para o inventor que estou desenvolvendo.
Gostaria de colocar no meu aplicativo um botão de save quando eu clicar nele aparecerá uma caixa de dialogo save

segue abaixo mas não funciona alguem pode me auxiliar

Private Sub Cmdsalvar_Click()

'Chama quadro de diálogo para salvar o arquivo
Dim objFileDialog As FileDialog

Call ThisApplication.CreateFileDialog(objFileDialog)

' Define the filter : the vertical bar (‘|’) splits the file types:

' Parts, assemblies or

' All other file format.

objFileDialog.Filter = "Inventor Files(*.iam;)|*.iam;|All Files (*.*)|*.*"

objFileDialog.FilterIndex = 1

'Define the initial subdirectory :

objFileDialog.InitialDirectory = "C:\Temp"

'Initialize error trapping :

objFileDialog.CancelError = False

'Show the window. Note that the code is the same in ‘Save’ mode :

On Error Resume Next

'objFileDialog.ShowOpen ' Activate for ‘open’ mode

objFileDialog.ShowSave ' Activate for ‘save’ mode

objFileDialog.FileName = "Inventor Files(*.iam;)|*.iam;|All Files (*.*)|*.*"

Dim oFileSaveAs As FileSaveAs

'Set oFileSaveAs = oApprentice.FileSaveAs

Save the assembly.

Call oFileSaveAs.AddFileToSave(oDoc, oDoc.FullFileName)

Call oFileSaveAs.ExecuteSave


End Sub