純粋にIfだけの入れ子にするくらいなら、

Dim S As Long
If (条件A) Then S = 1
If (条件B) Then S = S + 2
If (条件C) Then S = S + 4
...
Select Case S
Case 1

Case 2

...

みたいな形にした方がいいと思う。
途中にループとか挟まるなら関数として分けろ。