Дан двумерный массив из 36 элементов. Найти сумму квадратов 3 строки

Dim ET(6, 6) As Integer

ET(1, 1) = 1: ET(2, 1) = 2: ET(3, 1) = 30: ET(4, 1) = 6: ET(5, 1) = 5: ET(6, 1) = 4 
ET(1, 2) = 2: ET(2, 2) = 4: ET(3, 2) = 25: ET(4, 2) = 9: ET(5, 2) = 6: ET(6, 2) = 6 
ET(1, 3) = 3: ET(2, 3) = 6: ET(3, 3) = 20: ET(4, 3) = 12: ET(5, 3) = 7: ET(6, 3) = 9 
ET(1, 4) = 4: ET(2, 4) = 8: ET(3, 4) = 15: ET(4, 4) = 15: ET(5, 4) = 8: ET(6, 4) = 0 
ET(1, 5) = 5: ET(2, 5) = 10: ET(3, 5) = 10: ET(4, 5) = 18: ET(5, 5) = 9: ET(6, 5) = 10 
ET(1, 6) = 6: ET(2, 6) = 12: ET(3, 6) = 5: ET(4, 6) = 21: ET(5, 6) = 10: ET(6, 6) = 1

MsgBox

RANDOMIZE TIMER
FOR i = 1 TO 6
FOR j = 1 TO 6
a(i, j) = INT(RND * 100) + 1
NEXT j
NEXT i

s=0
for j=1 to 6
s=s+a(3,j)^2
next j
msgbox("Сумма=" & s)

a(i,j)

'Ìàññèâ
Dim ET(i, j) As Integer
For i = 1 To 6
For j = 1 To 6
ET(i, j) = Int(Rnd * 100) + 1
Next i
Next j
'Êîíåö ìàññèâà
s = 0
For j = 1 To 6
s = s + ET(3, j) ^ 2
Next j
MsgBox = "Total = " & s
End Sub

'Ìàññèâ
Dim ET(6, 6) As Integer
For i = 1 To 6
For j = 1 To 6
ET(i, j) = Int(Rnd * 100) + 1
Next j
Next i
'Êîíåö ìàññèâà
s = 0
For j = 1 To 6
s = s + ET(3, j) ^ 2
Next j
MsgBox ("Total = " & s)