' Make Excel visible (optional) xlApp.Visible = True
' Write data xlWS.Cells(1, 1).Value = "Hello from VB6" xlWS.Cells(1, 2).Value = "Using Excel 16.0" microsoft excel 16.0 object library download vb6
' Error handling On Error GoTo ErrorHandler ' Make Excel visible (optional) xlApp