Private Sub CommandButton1_Click() 
  Set h = CreateObject("Excel.Application") 
  h.Visible = 1 
  
  Set hWBs = h.Workbooks 
  Set Mappe = hWBs.Add 
  Set Tabellen = Mappe.Sheets 
  anz = Tabellen.Count 
  
  Set Tab1 = Tabellen.Item(1) 
  Tab1.Activate
  
  Set Bereich = h.Activesheet.Range("A1:A3") 
  Bereich.Item(1) = 8 
  Bereich.Item(2) = 2.5 
  Bereich.Item(3) = 3.1415 
  
  Mappe.SaveAs ("Word.xls") 
  Mappe.Close 
  h.Quit Set 
  h = Nothing 
End Sub