访问Excel单元格的值赋给变量时出错

我写一个程序，是为了实现把单元格E5的值读出出来，并赋给一个变量i，然后把用户在textbox1和textbox2里输入的值分别写到单元格Ai和Bi里。
比如E5单元格中的值是3,用户在textbox1控件里输入的值是88,在textbox2里输入的值是abc，那么就让A3=88，B3=abc。
程序先在Form1里添加相关控件（button1,textbox1,textbox2)
代码如下：
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim j As Integer
        xlapp = CreateObject("Excel.Application") '创建EXCEL对象
        xlbook = xlapp.Workbooks.Open("D:\test.xls") '打开已经存在的test.xls工件簿文件
        xlapp.Visible = False
        xlsheet = xlbook.Worksheets(1) '表1为活动表
        i = xlsheet.Range(1, 5).Value + 1
        xlsheet.Cells(i, 1) = TextBox1.Text
        xlsheet.Cells(i, 2) = TextBox2.Text

    End Sub

可是运行后程序出现错误：异常来自 HRESULT:0x800A03EC。这是怎么回事。该怎么解决。谢谢指点。