Dim xlApp As Excel.Application
    Dim xlMappe As Excel.Workbook
    Dim xlBlatt As Excel.Worksheet
    Dim xlZelle As Excel.Range
    Dim xlOLE As Excel.OLEObject
 
    Public Sub Test()
        xlApp = New Excel.Application
        xlApp.Visible = False
 
        xlMappe = xlApp.Workbooks.Open("C:\Test.xls")
 
        xlBlatt = xlMappe.Worksheets(1)
 
        xlZelle = xlBlatt.Range("A1")
        xlZelle.Value = "Text"
 
        xlOLE = xlBlatt.OLEObjects("CheckBox1")
 
        'es gibt jedoch keine Eigenschaft des OLE Objektes
        'die angibt ob die Checkbox True oder False ist!?
 
        xlOLE.Checked = True 
        'Fehlermeldung von VB Members in OLE nicht gefunden!
 
 
        xlMappe.Save()
        xlMappe.Close()
        xlApp.Quit()
    End Sub