Перевести код с VBA на Visual Basic.NET - Visual Basic .NET

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

Здравствуйте! Прошу помощи. Переведите, пожалуйста, код ниже с VBA (Эксель) на Visual Basic.NET. Обращаюсь вынужденно, поскольку не установлена Visual Studio. Да и вообще практически не сталкивался с Visual Basic.NET, нет навыка.

                    Листинг программы
                
 
                        
                          
                    
Sub MyExcel_17()
Dim Z(), si%, sj%, sij%
'--------------------
    ActiveSheet.UsedRange.EntireRow.Delete
    Cells.Clear
    [A1] = 18:  [B1] = 19:  [C1] = -28
    [A2] = 14:   [B2] = 13:   [C2] = 1
    [A3] = 222:  [B3] = 0:   [C3] = 17
    
    Z = Sheets(1).[A1].CurrentRegion.Value
si = 0: sj = 0: sij = 0
For i = 1 To 3
  si = si + Z(i, 1)
  sj = sj + Z(1, i)
  sij = si + sj
Next
 
Cells(1, 4) = sj  'сумма по 1-й строке
Cells(1, 4).Font.Color = vbRed
Cells(4, 1) = si  'сумма по 1-му столбцу
Cells(4, 1).Font.Color = vbBlue
Cells(4, 4) = sij  'общая сумма: по 1-му столбцу и по 1-й строке
Cells(4, 4).Font.Color = vbGreen
End Sub

Решение задачи: «Перевести код с VBA на Visual Basic.NET»

textual
                            Листинг программы 
                        
 
                            
                        
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ex As New Microsoft.Office.Interop.Excel.Application
        Dim wb As Microsoft.Office.Interop.Excel.Workbook
        Dim si, sj, sij As Integer
        wb = ex.Workbooks.Add()
        Dim ws As Microsoft.Office.Interop.Excel.Worksheet = CType(wb.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
        ws.UsedRange.EntireRow.Delete()
        ws.Cells.Clear()
        ws.Range("A1").Value = 18
        ws.Range("B1").Value = 19
        ws.Range("C1").Value = -28
        ws.Range("A2").Value = 14
        ws.Range("B2").Value = 13
        ws.Range("C2").Value = 1
        ws.Range("A3").Value = 222
        ws.Range("B3").Value = 0
        ws.Range("C3").Value = 17
        si = 0
        sj = 0
        For i = 1 To 3
            si = si + ws.Cells(i, 1).Value
            sj = sj + ws.Cells(1, i).Value
            sij = si + sj
        Next
 
        ws.Cells(1, 4).Value = sj  'сумма по 1-й строке
        ws.Cells(1, 4).Font.Color = RGB(255, 0, 0)
        ws.Cells(4, 1).Value = si  'сумма по 1-му столбцу
        ws.Cells(4, 1).Font.Color = RGB(0, 0, 255)
        ws.Cells(4, 4).Value = sij  'общая сумма: по 1-му столбцу и по 1-й строке
        ws.Cells(4, 4).Font.Color = RGB(0, 255, 0)
        ex.Visible = True
    End Sub
End Class