Как с vb6 экспортировать переменные по порядку в строки excel?

Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
 
   Set oExcel = CreateObject("Excel.Application")
Open "C:\O\d\фф.xlsx" For Append As oExcel
Set oBook = oExcel.Workbooks.Add
 
   Dim DataArray(1 To 1, 1 To 6) As Variant
   Dim r As Integer
   For r = 1 To 1
 
      DataArray(r, 1) = LblDate
      DataArray(r, 2) = Label19
      DataArray(r, 3) = Label20
       
   Next
 
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1:B1").Value = Array("И")
   oSheet.Range("C1:F1").Value = Array("С", "Се", "В", "С", "Ч") 
   oSheet.Range("A2:B2").Value = Array("П", "№")
 
   oSheet.Range("A3:A1000").Resize(1, 6).Value = DataArray
   
   oBook.SaveAs "C:\O\d\фф.xlsx"
   oExcel.Quit

Option Explicit
Dim oExcel, i&, s$
Private Sub Form_Load()
    Set oExcel = CreateObject("Excel.Application")
    ChDir App.Path
    With oExcel.Workbooks.open(App.Path & "\000.xls")
        With .ActiveSheet
            For i = 1 To 5
                s = s & vbTab & .cells(1, i)
            Next
        End With
    End With
    oExcel.Quit
    MsgBox s
    Set oExcel = Nothing
    End
End Sub

Option Explicit
Dim oExcel, i&, s$
Private Sub Form_Load()
    Set oExcel = CreateObject("Excel.Application")
    With oExcel.Workbooks.open(App.Path & "\000.xls")
         With .ActiveSheet
            Do
                s = InputBox("Запишите число  в ячейку A1")
                If IsNumeric(s) Then .cells(1, 1) = s: Exit Do
            Loop
            Do
                s = InputBox("Запишите число  в ячейку B1")
                If IsNumeric(s) Then .cells(1, 2) = s: Exit Do
            Loop
            .cells(1, 3).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
            MsgBox "Ответ записан в ячейку C1: = " & .cells(1, 3)
        End With
'        .save
    End With
    oExcel.Quit
    Set oExcel = Nothing
    End
End Sub