Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i, j As Integer
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate
xlSheet.Cells(i , j) = text1.text
Set xlApp = Nothing