VB 中关于commondailog 的问题

Question

VB中如何利用commondailog打开一个已经存在的EXCEL文件并将文本框中的数据添加进去，本人对commondailog还在学习阶段，所以请各位大侠讲得具体点！谢谢

Answer 1

比如说该EXCEL文件的地址为此c:1.xls

Answer 2

Sub open_click()
  With CommonDialog1
            .Filter = "(excel文档)|*.xls|所有文件|*.*"
              MsgBox .FileName
            .ShowOpen
            sFileName = .FileName
  End With
    
 
End Sub我已经打开一个EXCEL文件了，如何将dim a as sring      a = text1.text  的值添加到excel中