Private Sub GetColumn()
    Dim iMassiv#(1 To 100, 1 To 5)
    Dim iColumn%, iRow%, iChooseColumn
 
    For iColumn = 1 To 5
        For iRow = 1 To 100
            iMassiv(iRow, iColumn) = Rnd * 1000
        Next
    Next
 
    iChooseColumn = Application.Index(iMassiv, 0, 3)
End Sub