想把WritePrivateProfileString/GetPrivateProfileString和CommonDialog1的保存和打开配合失败

B = WritePrivateProfileString("bC1", "C1_0", CSTR(bC1(0),App.Path & "\DATA3.txt")
bC1(0)为数组，这个执行都没问题。
但我想利用CommonDialog控件可以自己定义文件名来代替上面的DATA3,但是都失败了,如：
With CommonDialog1
    .FileName = "Tempretrue" & " " & CStr(Format(Date, "yy_mm_dd"))
......
.showsave
B = WritePrivateProfileString("bC1", "C1_0", CSTR(bC1(0),App.Path &CommonDialog1.filename")

难道WritePrivateProfileString只能写入固定文件名吗,本人对文件操作没经验
请大家帮助，谢谢
想把WritePrivateProfileString/GetPrivateProfileString和CommonDialog1的保存和打开配合失败
B = WritePrivateProfileString("bC1", "C1_0", CSTR(bC1(0),App.Path & "\DATA3.txt")
bC1(0)为数组，这个执行都没问题。
但我想利用CommonDialog控件可以自己定义文件名来代替上面的DATA3,但是都失败了,如：
With CommonDialog1
    .FileName = "Tempretrue" & " " & CStr(Format(Date, "yy_mm_dd"))
......
.showsave
B = WritePrivateProfileString("bC1", "C1_0", CSTR(bC1(0),App.Path &CommonDialog1.filename")

难道WritePrivateProfileString只能写入固定文件名吗,本人对文件操作没经验
请大家帮助，谢谢
在WritePrivateProfileString之前增加对文件的合法性判断...

补充：VB ,  基础类