想用以下这段代码做保存文件对话框，结果点击没反应，可是用.showopen方法做打开对话框是好使的，.showsave就不行。请教问题出在哪？

Sub OnClick(Byval Item)
Dim objDialog
Dim intResult
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.InitialDir = "D:\"
objDialog.Filter = "XML Files (*.xml)*.xml"
objdialog.Owner = "WinCC-运行系统 - "
intResult = objDialog.showsave
End Sub