Прямоугольная матрица. - VB

Формулировка задачи:

Добрый день уважаемые эксперты! Помогите пожалуйста сделать программу, так как сам я это сделать несмог(. Задание такое: дана прямоугольная матрица. Определить: 1) номер первого из столбиков который содержит хотябы один ноль (и выводить этот номер в отдельный Label или TextBox разницы нету); 2) отсортировать матрицу таким образом чтобы первая строка содержала числа по возростающей! У меня в матрице количество столбиков и строк должен вводить сам пользователь, она может быть любая. Я пользуюсь Microsoft Visual Basic 6.0 SP5 Для тех кто несможет скачать мой проэкт, вот выкладываю код самой матрицы:

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim r As String
n = Text1.Text
m = Text2.Text
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("ГўГўГҐГ¤ВіГІГј Г§Г*Г*Г·ГҐГ*Г*Гї a(" & i & ", " & i & ")")
r = r & a(i, j) & vbTab
Next j
r = r & vbCrLf
Next i
Label2.Caption = r
 
End Sub

Помогите!!! Это просто задача на экзамен и её нужно срочно сделать и чтобы она была работоспособна. Заранее огромное Вам всем спасибо.

Решение задачи: «Прямоугольная матрица.»

textual
                            Листинг программы 
                        
                            Label1.Caption = r --->Label1.Caption =".............."  & "  " & r