tilføje linie til excel

visual basic applikation ?

i hvilket program
Excel
Access
Word

eller ?

Altså gennem et eksternt program lavet i Visual basic 6.0

Private Sub Command1_Click()
'Ref.  til Microsoft Excel XX.X object Library
Dim RW As Long
    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application
   
    'xlApp.Visible = True
    With xlApp
        .Workbooks.Open "C:\Test.xls"
        RW = .Worksheets("Ark1").Range("A65536").End(xlUp).Row + 1
        .ActiveWorkbook.Worksheets("Ark1").Range("A" & RW) = "DataTilExcel"
        End With
    xlApp.Quit
    Set xlApp = Nothing
End Sub

marker mit navn og tryk accepter, hvis det virkede