これじゃヤだ？>>62
Select Case a
　Case 1 7 13 17 19 20 21 20 59
　　'適合する場合の処理
　Case Else　'その他の場合
　　'その他の場合の処理
End Select