Vazdaew

Кстати, конструкция ElseIf (без пробела) в VB 6.0 имеется, и потому в нем возможны такие вот операторы:

If bBoolean1 then
.....
ElseIf bBoolean2 then
.....
ElseIf bBoolean3 then
.....
EndIf

Всего вам наилучшего!