Нужно переставить столбцы массива в Visual Basic

[vital22222]

Есть задание:
1. Выполнить перестановку столбцов массива А таким образом, чтобы первыми были столбцы, содержащие отрицательные элементы.

Никак не могу понять, как сделать?
Сам массив вот есть Form1RGR.rar

2. Выделить в одномерный массив B элементы тех строк, которые не содержат ни одного отрицательного элемента.
Программа работает, при выполнении задачи выделяет элементы строк, но почему то добавляет нули. Выше есть ссылка на этот массив.

Код к задаче 2

Private Sub mnu2_Click()
Dim k As Integer
ReDim s(1 To n * m)

For i = 1 To n
k = 0
For j = 1 To m
If a(i, j) > 0 Then k = k + 1
Next j
If k = m Then
For j = 1 To m
l = l + 1
s(l) = a(i, j)
Next j
End If
Next i
For i = 1 To n
Text3.Text = Text3.Text & s(i) & " "
Next i
End Sub

Помогите пожалуйста, я новичок в программировании.