過濾集數 1-3,8 寫法

以前就遇到租書軟體轉檔集數標示的問題!
----
特殊集數範圍或是多集輸入法:
1.  2-5
2.  33
3.  3-11,12
4.  2-5,6-9
----
這次又遇到此寫法,想了好久;最終還是破解此問題!
 Private Sub Command1_Click()
For i = 0 To 10
   Select Case i
     Case 2 To 5, 7
       Print i
   End Select
Next i
End Sub
-------------
將所有集數倒出來,再利用程式來過濾
當然這樣會有一個問題,就是當集數全展開;筆數會非常龐大
但沒辦法,這種鳥寫法 ; 就得用這種過濾來處理