Столбцы элементы которых кратны 3, упорядочить по убыванию - VB

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

Проблема такова. вот примерный код без сортировки

Private Sub CommandButton1_Click()
Dim Mas() As Single, Mas2() As Single
Dim i As Integer, j As Integer
Dim n As Integer, m As Integer
m = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГІГ±ГўГ® Г±ГІГ°Г®ГЄ "))
n = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў "))
ReDim Mas(1 To m, 1 To n), Mas2(1 To n)
Debug.Print "ГЁГ±ГµГ®Г¤Г*Г»Г© ГЊГ*Г±Г±ГЁГў"
For i = 1 To m
For j = 1 To n
Mas(i, j) = Int(Rnd * 100)
Debug.Print Mas(i, j);
Next j
Debug.Print
Next i
Debug.Print "ГЊГ*Г±Г±ГЁГў ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў ГЄГ°Г*ГІГ*Г»Гµ ГІГ°ВёГ¬"
For j = 1 To n
For i = 1 To m
If Mas(j, i) Mod 3 = 0 Then Mas2(i) = Mas(j, i)
Debug.Print Mas2(i);
Next i
Next j

Но если запустить прогу, то в debug она выдаёт совершенно не те числа и нули. подскажите что не так?

Решение задачи: «Столбцы элементы которых кратны 3, упорядочить по убыванию»

textual
                            Листинг программы 
                        

                            Debug.Print "Массив элементов кратных трём"
For j = 1 To n
For i = 1 To m
If Mas(i, j) Mod 3 = 0 Then Mas2(j) = Mas(i, j):Debug. Print Mas2(j);
Next i
Next j
                        