VB点击按钮保存弹出对话框保存固定格式的文件

在VB中点击保存按钮，用到CommonDialog，在弹出保存对话框时第一次不会出现设定的格式，第二次点击保存才会出现设定的格式，请教是什么问题？谢过~

代码如下：

Private Sub Command2_Click()

CommonDialog1.ShowSave

CommonDialog1.DialogTitle = "导出"

CommonDialog1.DefaultExt = "txt"

CommonDialog1.Filter = "文本(*.txt)|*.txt|pdf文件（*.pdf）|*.pdf"

CommonDialog1.FilterIndex = 0

Open CommonDialog1.FileName For Output As #2                                                   

Print #2, Text1.Text

Close #2

End Sub