Con esta función vamos a Recorrer filas de un fichero Excel hasta el final de este, y Cerrar y liberar el excel de memoria.

 Private sub RecorrerExcel()
        Dim vString1 As String = "-vacio-"
        Dim CONTENIDO As String = "-"
        Dim Fila As Long = 4
        Try
            Dim oExcel As Object
            Dim oLibro As Object
            Dim oHoja As Object
            Dim oRango As Object

             oExcel = CreateObject("Excel.Application")
            '   oLibro = oExcel.Workbooks.Add
            oLibro = oExcel.Workbooks.Open("RUTA DEL EXCEL.XLSX")
            'oHoja = oLibro.ActiveSheet ' ABRE LA HOJA PRIMERA
            oHoja = oLibro.Sheets("HOJA1")

            While CONTENIDO <> ""


                CONTENIDO = oHoja.Cells(Fila, 1).value
                vString1 = vString1 & oHoja.Cells(Fila, 2).value
                vString1 = vString1 & oHoja.Cells(Fila, 3).value
                vString1 = vString1 & oHoja.Cells(Fila, 4).value

                Fila = Fila + 1
                ' MsgBox(vString1)
            End While
 
            oRango = Nothing
            oHoja = Nothing
            oLibro = Nothing
            oExcel.quit()
            oExcel = Nothing

            txtMensajes.Text = vString1
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub