用commondialog控件保存文件问题，知道的进来看看，帮帮忙，指导一下

Private Sub Command3_Click()
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files(*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #2
Print #2, ss  ’ss为字符串类型，是单片机上传的数据
Close #2
errhandler:
Exit Sub
End Sub
我用commondialog控件保存单片机上传的数据，保存下来的数据只有1分钟左右的数据，单片机采集正常，上位机显示单片机上传的数据也正常，不知数据保存这部分的程序问题错在哪里？请高手指点

进来看看阿，我都急死了，帮帮忙！先谢了

保存程序问题，和 CommonDialog控件无关