Вывести номера столбцов двумерного массива содержащих только отрицательные числа - VB

Option Explicit
 
Dim i%, j%, k%, N%
 
Private Sub com1_Click()
    Cls
    Randomize Timer
    N = Val(txtT.Text)
    
    ReDim a%(1 To N, 1 To N)
    
    For i = 1 To N
    For j = 1 To N
        a(i, j) = 80 * Rnd - 60
        Print Format(a(i, j), "00  ");
    Next: Print
    Next: Print
    Print "Номера столбцов"
    
    For j = 1 To N
        k = 0
        For i = 1 To N
            If a(i, j) < 0 Then k = k + 1
        Next i
        If k = N Then Print j;
    Next j
End Sub