>>736
やりたい処理内容によるけど、こういう書き方をするとすっきり書けるかも

Dim sid As String

sid = CStr(x) & “-” & CStr(y) & “-” & CStr(z)

Select Case True
　Case sid Like “1-1-1”
　　Call ProcA
　Case sid Like “1-1-2”
　　Call ProcB
　Case sid Like “1-2-1”
　　Call ProcK
　Case sid Like “1-3-*”
　　Call ProcC
　Case sid Like “[4,5,6]-[!1,2,3]-*”
　　Call ProcD
　Case Else
　　Call ProcZ
End Select

パターンマッチングの記法はLike演算子のヘルプを見てね