Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlButton As Excel.Button
 
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
Set xlButton = xlSheet.Buttons.Add(44, 100, 100, 44)
 
' Jetzt können Sie eine Eigenschaft eines Button-
' Objekts verwenden.
xlButton.Caption = "ErsteSchaltfläche"
xlApp.Visible = True