Вывод данных из файла xlsx в TextBox

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        appExcel = CreateObject("Excel.Application")
        appExcel.Workbooks.Open("C:\Users\jas23\Videos\1.xlsx")
        appExcel.Visible = False
        With appExcel.ActiveSheet
            .Range("C" & I + 1).Value = TextBox2.Text
            .Range("A" & I + 1).Value = TextBox1.Text
        End With
        appExcel.Workbooks(1).Close(True)
        appExcel.Quit()
        I += 1
    End Sub

TextBox2.Text =.Range("C" & I + 1).Value
TextBox1.Text = .Range("A" & I + 1).Value

Imports Microsoft.Office.Interop
Public Class Form1
    Private appExcel As Excel.Application
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim fileName As String = "C:\03\good.xls"
        Dim startRegion As String = "D3"
        appExcel = New Excel.Application
        appExcel.Workbooks.Open(fileName)
        appExcel.Visible = False
        Dim rng As Excel.Range = appExcel.ActiveSheet.Range(startRegion).CurrentRegion
        Dim str As String = String.Empty
        TextBox1.Font = New Font("Courier New", 8)
        For i = 1 To rng.Rows.Count
            For j = 1 To rng.Columns.Count
                str &= " | " & rng(i, j).text.ToString.PadRight(10)
            Next
            str &= vbCrLf
        Next
        TextBox1.Text = str
        Try
            appExcel.Quit()
        Catch ex As Exception
        End Try
    End Sub
End Class