Dim xlOLESheet As Object  
OLE1.CreateEmbed "", "Excel.Sheet"  
Set xlOLESheet = OLE1.object.Sheets(1)   
 
'nachfolgend einige Beispiele um Werte einzutragen
xlOLESheet.Cells(1, 1).Value = "Test"  
xlOLESheet.Range("B1").Value = 22  
With xlOLESheet    
  .Cells(2,2).Value = 33    
  .Range("B2").Value = "Test"  
End With  
Set XLOLESheet = Nothing