[OSのVer]：Windows　XP　　　[VBのVer]：VB.NET　
　 既存のExcelを開いてVB.netから数値を代入したいのですができません。
既存のファイルを開くのに
Dim x1app As Object
        Dim filename As String

        x1app = CreateObject("Excel.Application")
        filename = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
        Shell(x1app.Path & "\excel.exe """ & filename _& &q
uot;\business.xls""", 1)
を書きました。

VB.netからExcelに書き込むには
Dim x1app As Excel.Application
        Dim x1book As Excel.Workbook
        Dim x1Sheet As Excel.Worksheet

        x1app = CType(CreateObject("Excel.Application"), Excel.Application)
        x1book = CType(x1app.Workbooks.Add, Excel.Workbook)
        x1Sheet = CType(x1book.Worksheets(1), Excel.Worksheet)

        x1Sheet.Cells(5, 13) = 5000
        x1Sheet.Cells(6, 14) = 75
        x1Sheet.Cells(7, 15) = "合計"
        x1Sheet.Range("B3").Formula() = "=Sum(R1C2:R2C2)"
        x1Sheet.Range("B3").Font.Bold = True
        x1Sheet.Application.Visible() = True
        
でできます。
この二つをどのように組み込めばいいのでしょうか。
よろしくおねがいいたします。