Public Class Form1
    Const sSampleFolder = "C:\ExcelData\"
    Const sNorthwind = "C:\Program Files\Microsoft" & _
      "Office\Office10\Samples\Northwind.mdb"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) _
    Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        Dim aList As String() = _
        {"Use Automation to Transfer Data Cell by Cell ", _
        "Use Automation to Transfer an Array of Data to a Range on a Worksheet" & _
        "", _
        "Use Automation to Transfer an ADO Recordset to a Worksheet Range ", _
        "Use Automation to Create a QueryTable on a Worksheet", _
        "Use the Clipboard", _
        "Create a Delimited Text File that Excel Can Parse into Rows and" & _
        "Columns", _
        "Transfer Data to a Worksheet Using ADO.NET "}
        ComboBox1.Items.AddRange(aList)
        ComboBox1.SelectedIndex = 0
        Button1.Text = "Go!"
    End Sub

    Private Function Automation_CellByCell()
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        'Start a new workbook in Excel.       
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add
        'Add data to cells of the first worksheet in the new workbook.      
        oSheet = oBook.Worksheets(1)
        oSheet.Range("A1").Value = "Last Name"
        oSheet.Range("B1").Value = "First Name"
        oSheet.Range("A1:B1").Font.Bold = True
        oSheet.Range("A2").Value = "Doe"
        oSheet.Range("B2").Value = "John"
        'Save the workbook and quit Excel.     
        oBook.SaveAs(sSampleFolder & "Book1.xls")
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()
    End Function

Die Geister die wir riefen...