Private Sub Command1_Click() Dim XL As Excel.Application 'Open Excel Set XL = New Excel.Application XL.Visible = True 'Create a new workbook XL.Workbooks.Add 'Put data on the second sheet XL.Worksheets("Sheet1").Range("A1").Value = "Hello 1" XL.Worksheets("Sheet2").Range("B2").Value = "Hello 2" XL.Worksheets("Sheet3").Range("C3").Value = "Hello 3" 'Get data from worksheets MsgBox XL.Worksheets("Sheet1").Range("A1").Value XL.Quit Set XL = Nothing End Sub