Интерпретация кода VBA - Visual Basic .NET

Формулировка задачи:

Во вложении файлик .xlsm в нем макрос, который я оставил для примера, чтоб понятнее было. Помогите перенести макрос на форму, точнее сказать интерпритировать код для Вижуалстудио. Все исходники и мое "творчество во вложении". Мне мозгов не хватает сообразить на что ругается Студио в момент отладки. (Скрин "Ругательства так же во вложении") Помогите кто чем может как исправить ситуевину.) Мне нужно чтоб Label1.Text = При нажатии на кнопку на форме Макрос:

Private Sub Workbook_Open()
LastRow = Лист1.Cells(Лист1.Rows.Count, 1).End(xlUp).Row
For i = 2 To 9
    If Лист1.Cells(LastRow, i) = "130" Then
        MsgBox ("Последний плативший " & Лист1.Cells(1, i) & " Следующий - " & Лист1.Cells(1, i + 1))
    End If
Next i
End Sub

класс Form1

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim infoReader As System.IO.FileInfo
        infoReader = My.Computer.FileSystem.GetFileInfo("C:\Users\tu57admin\Desktop\Вода1.xlsm")
        Label1.Text = "File was last modified on " & infoReader.LastWriteTime
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim oExcel
        Dim oBook
        Dim qwe
        Const xlUp = &HFFFFEFBE
 
        oExcel = CreateObject("Excel.Application")
        qwe = oExcel.Workbooks.Open("C:\Users\tu57admin\Desktop\Вода1.xlsm").Activate()
        oBook = qwe.Cells(qwe.Rows.Count, 1).END(xlUp).Row
 
        For i = 2 To 9
            If qwe.Cells(oBook, i) = "130" Then
                Label1.Text = "Последний плативший" & qwe.Cells(1, i) & " Следующий - " & qwe.Cells(1, i + 1)
            End If
        Next i
    End Sub
End Class

Решение задачи: «Интерпретация кода VBA»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_Open()
Dim LastRow As Long, LastCol As Long
 
    With Worksheets("Лист1")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        LastCol = .Cells(LastRow, .Columns.Count).End(xlToLeft).Column
        MsgBox ("Последний плативший: " & .Cells(1, LastCol) & Chr(10) & "Следующий: " & .Cells(1, LastCol + 1))
    End With
End Sub
                        