Что-то вроде этого?

Option Explicit

Private Type udtBuySell 'bsl
Bsl_Buy As Boolean
Bsl_Sell As Boolean
End Type

Private bslBuySell As udtBuySell

Private Sub Form_Load()
bslBuySell.Bsl_Buy = True
bslBuySell.Bsl_Sell = False
End Sub

!empleX2VladConn Чесно не понял, но попробую.
2 SoftParanoik
Вроде как оно, щас попробую.

Нужно для проверки, иду по столбцу, если значение меняется с buy на sell, то должна отрабатывать соотв функция.

!empleX

Вы же просили некие булевы buy/sell переменные? Вот моя переменные и есть булевы, выглядящие в коде как buy/sell, причем я их инициализирую соответственно:

bslBuySell.Bsl_Buy = True
bslBuySell.Bsl_Sell = False

Что касается решения от SoftParanoik, то оно очень похоже на мое, с той лишь разницей, что там предлагается Enumeration, а не User Defined Type, как у меня. Enumeration подразумевает не булевы значения, а целочисленные, что, вообще говоря, не точно соответствует вашему требованию. Хотя SoftParanoik подставляет в Enumeration булевы значения, опираясь на внутреннее представление булевых значений как целочисленных, но это, на мой взгляд, затуманивает смысл делаемого, т.к. в Enumeration ожидаются числа, а не что-то другое.

Успехов