进来帮个忙关于保存文件的

Private Sub Command6_Click()
With CommonDialog3
 .Filter = "Excel文件(*.csv)|*.csv "
.InitDir = "D:\"
.flags = cdlOFNOverwritePrompt
.ShowSave
If Len(CommonDialog3.filename) > 0 Then
Open CommonDialog3.filename For Output As 1
Print #1, Label8.Caption & Label9.Caption    
 
Close
MsgBox "保存完毕"
End IfEnd With
End Sub
我现在要保存到CSV文件里，但是想把Label8.Caption和Label9.Caption分开保存，分别放在A和B两个里面