perche' splittare?

invece di

bVar1=0
bVar2=1
bVar3=1

ecc

puoi avere

sBitString="011"

invece di testare

IF bVar2=0 THEN

puoi fare

IF MID(sBitString, 2, 1)="0" Then

....

ma per 10 booleane non vale la pena, IMHO