>>862
配列、For文、Select文 を使うと良いよ。

Dim I, N(1 To 8), S, M, L
S = 0: M = 0: L = 0
For I = 1 To 8
Select Case N(I)
Case 0
Case 1
S = S + 1
Case 2
S = S + 1: M = M + 1
Case Else
S = S + 1: M = M + 1: L = L + 1
End Select
Next I