将文本框内容附加到Excel工作表

我有下面的代码，但我希望我的数据被添加到Excel文件，每次我input的信息，而不是覆盖相同的单元格。 （find下一个空单元格，并添加textbox1.text数据）

Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim xlApp As New Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Try xlApp.DisplayAlerts = False xlWorkBook = xlApp.Workbooks.Add xlWorkSheet = DirectCast(xlWorkBook.Sheets("Sheet1"), Excel.Worksheet) xlApp.Visible = False 'Don't show Excel; we can and we don't have too xlWorkSheet.Cells(1, 1) = TextBox1.Text xlWorkBook.SaveAs("C:\Temp\Book1.xlsx", FileFormat:=56) 'Save the workbook xlWorkBook.Close() 'Close workbook xlApp.Quit() 'Quit the application 'Release all of our excel objects we used... ReleaseObject(xlWorkSheet) ReleaseObject(xlWorkBook) ReleaseObject(xlApp) Catch ex As Exception End Try End Sub Public Shared Sub ReleaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) Catch ex As Exception obj = Nothing Finally GC.Collect() End Try End Sub End Class 

请帮忙！