Блок-схема. VB 6.0

[r0manbow]

Условие задачи: В заданной матрице переставить строки по убыванию сумм элементов строк
Имеется код

Option Explicit
 
Private Sub Command1_Click()
Dim i, j, k, p, N
N = CInt(InputBox("Введите число столбцов и строк"))
ReDim x(N, N) As Integer
ReDim y(N) As Integer
 
For i = 1 To N
    p = ""
    y(i) = 0
    For j = 1 To N
     x(i, j) = CSng(InputBox("Введите число", Str(i) & "-ая строка", Str(j) & "-ый стоблец"))
        Print x(i, j);
        y(i) = y(i) + x(i, j)
        p = p & x(i, j) & " "
    Next j
    p = " (" & y(i) & ")"
    Print p
Next i
 
For i = 2 To N
    j = i
    Do While j > 1
        If y(j) > y(j - 1) Then
            p = y(j)
            y(j) = y(j - 1)
            y(j - 1) = p
            For k = 1 To N
                p = x(j, k)
                x(j, k) = x(j - 1, k)
                x(j - 1, k) = p
            Next
            j = j - 1
        Else
            Exit Do
        End If
    Loop
Next
 
Print
Print "Новая матрица"
 
For i = 1 To N
For j = 1 To N
Print x(i, j);
Next j
p = "(" & y(i) & ")"
Print p
Next i
 
End Sub

Необходимо составить к нему блок-схему
У меня затруднения вызывают расчеты при вводе матрицы и цикл с Do While