Sub УважаемыеКоллеги()

Dim Вы, CIO, КлубИТдиректоровЮгаРоссии As Boolean

Const Программисты = True

If Вы = Программисты Then

ПОЗДРАВЛЯЕМ_ВАС_С_ДНЕМ_ПРОГРАММИСТА

Else

If Вы = CIO Then

ПОЗДРАВЬТЕ_СВОИХ_ПРОГРАММИСТОВ_С_ДНЕМ_ПРОГРАММИСТА

Else

ПОЗДРАВЬТЕ_СВОИХ_ЗНАКОМЫХ_ПРОГРАММИСТОВ_С_ДНЕМ_ПРОГРАММИСТА

End If

End If

КлубИТдиректоровЮгаРоссии = True

End Sub

С уважением,
Председатель Клуба ИТ-директоров
Юга России

М.Г.Сахно