Выделение битов из двоичного числа

[Valkiria]

Подскажите пожалуйста, как в виде функции на языке VB можно реализовать выделение старших, средних и младших битов в отдельные массивы, выделяют биты из двоичных чисел вида 0001, 0010, ... 1110 и тд.