Guardar datos desde bv6 a excel

Hola agradecería si me puedes ayudar o guiar en lo siguiente, tengo un programita que recibe un tickets enviados al puerto com, funciona de maravillas, mi problema surge cuando guardos estos registros en un excel, ya que tengo un código que guarda el ticket creando un archivo exel con el código, no se como debo hacerlo para que guarde los tickets.
Un tikets seria esto:
                        Fecha
                        Producto
                       Código
                       Cantidad
Cuando guardo uno solo no hay problema pero necesito guardar varios, osea necesito un código que abra el archivo excel y que en columna que corresponda busque la siguiente celda vacíe y guarde el registro.
El código uso actualmente es este.
Private Sub Command1_Click()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim arreglo() As String
arreglo = Split(Text1, vbNewLine)
'Start a new workbook in Excel
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
'Add data to cells of the first worksheet in the new workbook
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = arreglo(0)
oSheet.Range("B1").Value = arreglo(1)
oSheet.Range("C1").Value = arreglo(2)
oSheet.Range("D1").Value = arreglo(3)
oSheet.Range("E1").Value = arreglo(4)
oSheet.Range("F1").Value = arreglo(5)
oSheet.Range("G1").Value = arreglo(6)
oSheet.Range("H1").Value = arreglo(7)
oSheet.Range("I1").Value = arreglo(8)
oSheet.Range("A1:B1").Font.Bold = True
'Save the Workbook and Quit Excel
oBook. SaveAs "C:\Book1.xls"
oExcel.Quit
End Sub
DEsde agradezco su Ayuda.