Как вытащить данные из ячейки Excel

Dim wb As Object
Dim XL As Object
Dim Fail as String="C:\temp\proga1\AlarmLog.csv"
XL = CreateObject ("Excel.Application")
wb = XL.Workbook.open(Fail)
wb.Worksheets("Лист1").Activate

wb.Worksheets("AlarmLog").Activate

wb.Worksheets(1).Activate

Public Class Form1
 
    Dim DataMatrix As DataTable ' тут мы и будем хранить данные из файла и работать с ними. Отсюда же и сохранять будем изменения в файл
    Dim Sourcefile As String = "E:\Скачанное\AlarmLog.csv" ' путь к файлу
    Dim cellseparator() As Char = {vbTab} ' разделитель данных в строках
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataMatrix = Me.ReadData(Sourcefile)
        Me.DataGridView1.DataSource = DataMatrix
    End Sub
 
    Private Function ReadData(ByVal source As String) As DataTable
        ReadData = New DataTable
        Dim Strings() As String = IO.File.ReadAllLines(source, System.Text.Encoding.Default) ' получаем весь файл в виде массива строк
        Dim headers() As String = Strings(0).Split(cellseparator, System.StringSplitOptions.None) ' получаем список заголовков колонок из первой строки
        ' заполняем пустую таблицу колонками в соответствии и их именами
        For Each Str As String In headers
            Dim dc As New DataColumn(Str, GetType(String))
            ReadData.Columns.Add(dc)
        Next
        ' а теперь заполняем ее данными
        For i As Integer = 1 To Strings.Length - 1
            Dim rowdata() As String = Strings(i).Split(cellseparator, System.StringSplitOptions.None)
            ReadData.Rows.Add(rowdata)
        Next
    End Function
 
End Class

MsgBox(Me.DataMatrix.Rows(15).Item(3))

MsgBox(Me.DataMatrix.Rows(15).Item("Raised Time"))