ケース番号の範囲が登録されていません

Question

私は、Case -1 To -10のケースで-1と評価されるはずのシンプルなケースステートメントを持っており、スキップしています。私は当初、バグがSelect Case Val(firstOptionLegArray(UBound(firstOptionLegArray))) + Val(secondOptionLegArray(UBound(secondOptionLegArray)))から出ていたと考えていました。私が期待していたものは評価していませんでした（この具体的なケースでは+1 + -2でなければなりません）。

Ran a Debug.Print行です。実際には-1と予想されています。私は何が欠けていますか？

Debug.Print Val(firstOptionLegArray(UBound(firstOptionLegArray))) + Val(secondOptionLegArray(UBound(secondOptionLegArray))) 

       Select Case Val(firstOptionLegArray(UBound(firstOptionLegArray))) + Val(secondOptionLegArray(UBound(secondOptionLegArray))) 

        Case 0 
        'No ratio 

         assemblyString = "LIVE " & GetOptionCodes(Mid(tradeLegStructureArray(0), 8, 2)) & " " & TranslateExpirationDate(firstOptionLegArray(3)) & " " & Format(firstOptionLegArray(5), "##0.00") & "/" & _ 
         Format(secondOptionLegArray(5), "##0.00") & " Fence" 

        Case -1 To -10 
        'Ratio 

         assemblyString = "LIVE " & GetOptionCodes(Mid(tradeLegStructureArray(0), 8, 2)) & " " & TranslateExpirationDate(firstOptionLegArray(3)) & " " & Format(firstOptionLegArray(5), "##0.00") & "/" & _ 
         Format(secondOptionLegArray(5), "##0.00") & " " & Abs(firstOptionLegArray(UBound(firstOptionLegArray))) & "x" & Abs(secondOptionLegArray(UBound(secondOptionLegArray))) & " Fence" 

       End Select 

Answer 1

値はケースlineで昇順にする必要があります。

Case -10 To -1