Найти сумму элементов первого столбца и первой строки

Module Module1
 
    Sub Main()
        Dim N, M, I, J As Integer
        Dim A(,) As Single = {{18, 19, -28}, {14, 13, 1}, {222, 0, 17}}
        N = A.GetUpperBound(0)
        M = A.GetUpperBound(1)
        Console.WriteLine("N={0} M={0}", N, M)
        Console.WriteLine("Количество строк матрицы А равно N+1={0}", N + 1)
        Console.WriteLine("Количество столбцов матрицы А равно M+1={0}", M + 1)
        Dim B(N), D(M) As Single
        Dim Z As Single
        Console.WriteLine("")
        Console.WriteLine("Массив значений сумм строк матрицы А () :")
        For I = 0 To N
            B(I) = 0
            For J = 0 To M
                B(I) = B(I) + A(I, J)
            Next J
            Console.WriteLine("B({0})={1}", I, B(I))
        Next I
        Console.WriteLine("")
        Console.WriteLine("Массив значений сумм столбцов матрицы А ():")
        For J = 0 To M
            D(J) = 0
            For I = 0 To N
                D(J) = D(J) + A(I, J)
            Next I
            Console.WriteLine("D({0})={1}", J, D(J))
        Next J
        Console.ReadLine()
    End Sub
 
End Module