Найти сумму элементов 5-й строки массива

Private Sub Command1_Click()
Dim m(6, 6)         
 
 
 
     Print
     Randomize
 
For a = 0 To 5                       
   For b = 0 To 5                       
       m(a, b) = Fix(Rnd * 100) + Fix(Rnd * -30)    
   Next b                                   
Next a                                     
     
For a = 0 To 5
     Print
   For b = 0 To 5
       Print m(a, b); 
   Next b
Next a
End Sub

Private Sub Command1_Click()
Dim m(6, 6)         
 
 
 
     Print
     Randomize
 
For a = 0 To 5                       
   For b = 0 To 5                       
       m(a, b) = -30 + Fix(Rnd * 100)    
   Next b                                   
Next a                                     
     
For a = 0 To 5
     Print
   For b = 0 To 5
       Print m(a, b); 
   Next b
Next a
End Sub

Private Sub Command1_Click()
 Dim m(6, 6) As Double
Print
Randomize
 For a = 0 To 5
 For b = 0 To 5
  m(a, b) = -30 + Fix(Rnd * 100)
Next b
 Next a
 max = m(a, b)
 
 For a = 0 To 5
 For b = 0 To 5
  If max < m(a, b) Then max = m(a, b)
  
Next b
 Next a
MsgBox "Max= " & max 
End Sub

Dim a(6, 6), s
 
Private Sub Command1_Click()
 
 Print
     Randomize
  s = 0
  For i = 0 To 5
  For j = 0 To 5
    a(i, j) = -30 + Fix(Rnd * 100)
  Next j
  Next i
     
  For i = 0 To 5
     Print
  For j = 0 To 5
    Print a(i, j);
    If i = 4 Then
   s1 = s1 + a(i, j)
    End If
    
  Next j
  Next i
   Print
   Print "Сумма в пятой строке ="; s1
    
End Sub

Dim a(6, 6), s
 
Private Sub Command1_Click()
 
 Print
     Randomize
  s = 0
  For i = 0 To 5
  For j = 0 To 5
    a(i, j) = -30 + Fix(Rnd * 100)
  Next j
  Next i
     
  For i = 0 To 5
     Print
  For j = 0 To 5
    Print a(i, j);
    If i = 4 Then
   s1 = s + a(i, j)
    End If
    
  Next j
  Next i
   Print
   Print "Сумма в пятой строке ="; s
    
End Sub

А для меня это очень важно! 
Хаму, лодырю и халявщику выполнять за него учебные задания не буду.
Помочь - всегда пожалуйста! Покажи свои попытки - подскажу в чём ошибка...

Sub Otchet_LR9()
Dim a(1 To 6, 1 To 6) As Integer, i As Integer, j As Integer, max As Single, ni As Single, nj As Single, sum5 As Single
Randomize
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int((100 - (-30) + 1) * Rnd - 30)
Sheets("Ëèñò1").Cells(i, j) = a(i, j)
 
'Определение max элемента в массиве
If max < a(i, j) Then
max = a(i, j)
ni = i
nj = j
End If
Next j
Next i
 
'Сумма 5 строки массива
sum5 = 0
For i = 5 To 5
For j = 1 To m
sum5 = sum5 + Mas(i, j)
Next j
Next i

Sub Alexander()
Dim a(1 To 6, 1 To 6) As Integer, i As Integer, j As Integer, B(1 To 6) As Integer, sum As Integer
Randomize
max = -31
For i = 1 To 6
For j = 1 To 6
a(i, j) = -30 + Fix(Rnd * 100)
Cells(i, j) = a(i, j)
prom = a(1, j)
a(1, j) = a(6, j)
a(6, j) = prom
If max < a(i, j) Then
max = a(i, j)
End If
Next j
Next i
Cells(1, 12) = "max="
Cells(1, 13) = max
For j = 1 To 6
B(j) = a(5, j)
sum = sum + B(j)
Next
Sheets("Лист1").Cells(1, 9) = "sum="
Sheets("Лист1").Cells(1, 10) = sum
End Sub