Определить сумму элементов каждой строки массива 5х5 и вывести на экран ту строку, в которой сумма элементов максимальна - VB

Private Sub Command1_Click()
   Dim A(1 To 5, 1 To 5) As Double
   Dim i As Integer, j As Integer
   Dim numStr As Integer, sumStr(1 To 5) As Double
   Dim maxSum As Double
   Randomize
   Cls
   numStr = 1
   Print "Исходный массив :"
   For i = 1 To 5
       For j = 1 To 5
           A(i, j) = Int(Rnd * 10 + 1)
           Print A(i, j); vbTab;
           sumStr(i) = sumStr(i) + A(i, j)
       Next j
       Print
   Next i
   maxSum = sumStr(1)
   For i = 1 To 5
       If maxSum < sumStr(i) Then maxSum = sumStr(i): numStr = i
   Next i
   Print
   Print "Максимальная сумма - " & maxSum & "  в строке № " & numStr
   Print
   Print "Строка"
   For i = 1 To 5
       Print A(numStr, i); vbTab;
   Next i
   
End Sub