Советы по уменьшению размеров кода

[miksayer]

Предлагаю выкладывать в этот топик советы по уменьшению размера кода. Вот один совет:
Если поменять значение переменной Boolean на противоположное, то лучше писать так:

Dim a As Boolean
a=Not a

чем так:

Dim a As Boolean
If a=True then
a=False
Else
a=True
End if

[Mongol]

Самый надежный совет по уменьшению кода:
1 Использовать объекты ActivX
2 Выносить общие функции в DLL библиотеки
3 Пользоваться Классами
)
как провило данное уменьшает код процентов на 30 и делает его более читаемым

[SCINER]

Можно избавиться от конструкции If..Else, если необходимо получить контекст данных зависящих
от булевого значения.

Например данную конструкцию:

If X = Y Then
  MsgBox "Выражение верно"
Else
  MsgBox "Выражение неверно"
End If

Можно заменить на:

MsgBox IIf(X = Y, "Выражение верно", "Выражение неверно")

[SCINER]

Чтобы получить определенное значение из строки с разделителями можно воспользоваться сл. кодом:
Пример:

Dim Tmp as String
Tmp = "256;128;64;32;16;8;4;2;1"
Msgbox Split(Tmp,";")(3)

Вернет "32"