Function saveFile()

    Dim strFileName As String
    Dim StrPath As String
    Dim instance As WdSaveFormat
    Dim format As String
    
    'provide a file type
    format = wdFormatXMLDocumentMacroEnabled
    
    'provide default filename
    saveName = "test124.docm"
    
    'provide a path
    pathFull = "C:\temp\"
                   
    'concat path
    StrPath = pathFull & saveName
       
    With Dialogs(wdDialogFileSaveAs)
        .Name = StrPath
        .format = format
        If .Display <> 0 Then
            MsgBox ("thanks")
        Else
            strFileName = "User Cancelled"
        End If
    End With
End Function

Sub Test()
    Call saveFile
End Sub