Найти максимальные элементы в столбцах матрицы B. Где ошибка? - VB

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim m As Integer, n As Integer
    Dim B() As Single
    Dim G As Single
    m = Val(InputBox("Число строк", , 5))
    n = Val(InputBox("Число столбцов", , 7))
    ReDim B(1 To m, 1 To n)
    Cls
    For i = 1 To m
         For j = 1 To n
             B(i, j) = 100 * Rnd()
             Print Format(B(i, j), "0.##"),
         Next
         Print
    Next
    Print
    For j = 1 To n
        G = B(1, j)
        k = 1
        For i = 1 To m
            If B(i, j) > G Then
               G = B(i, j)
               k = i
            End If
        Next i
        B(k, j) = B(1, j)
        B(1, j) = G
    Next j
    For i = 1 To m
       For j = 1 To n
             Print Format(B(i, j), "0.##"),
       Next
       Print
    Next
End Sub