В заданном диапазоне поменять местами.... - VB

Private Sub Command1_Click()
Dim A() As Single, maxsum As Single, max As Single, maxI As Single
Dim minsum As Single, min As Single, minI As Single
Dim n, m, temp, answer
answer = ""
n = InputBox("n")
m = InputBox("m")
ReDim A(1 To n, 1 To m)
maxsum = -(m * 50)
minsum = m * 100
For i = 1 To n
For j = 1 To m
A(i, j) = Int(100 * Rnd - 50)
answer = answer & A(i, j) & "  "
Next j
answer = answer & Chr(13)
Next i
For i = 1 To n
max = 0
For j = 1 To m
max = max + A(i, j)
Next j
If max > maxsum Then maxsum = Sum: maxI = i
Next i
For i = 1 To n
min = 0
For j = 1 To m
min = min + A(i, j)
Next j
If min < minsum Then minsum = Sum: minI = i
Next i
MsgBox "Строка максимальной суммы : " & maxI
MsgBox "Строка минимальной суммы  : " & minI
MsgBox answer
answer = ""
For j = 1 To m
temp = A(maxI, j)
A(maxI, j) = A(minI, j)
A(minI, j) = temp
Next j
For i = 1 To n
For j = 1 To m
answer = answer & A(i, j) & "  "
Next j
answer = answer & Chr(13)
Next i
MsgBox answer
End Sub