First, I would like to bring to your attention the fact that when using OR conditions the final result will be true if at least one of the conditions is met (all other conditions don't even need to be evaluated). If you were doing something like this <pre>If (k1+k2+k3+k4+k5) <b><> 3 AND</b> (k1+k2+k3+k4+k5) <b><> 6 AND</b> (k1+k2+k3+k4+k5) <b><> 7 AND</b></pre> or this: <pre>If (k1+k2+k3+k4+k5) <b>= 3 OR</b> (k1+k2+k3+k4+k5) <b>= 6 OR</b> (k1+k2+k3+k4+k5) <b>= 7 OR</b></pre> You could use an array and the <a href="http://msdn.microsoft.com/en-us/library/system.array.indexof.aspx">IndexOf function</a>. Something like this (you might need to change the "<> -1" to "= -1" below): <pre> Dim myArray() As Integer = New Integer() {3, 6, 7, 8, 9, 11} ... If Array.IndexOf(myArray, k1+k2+k3+k4+k5) <> -1 Then listbox.add(... End If</pre> -CarlosDL

First, I would like to bring to your attention the fact that when using OR conditions the final result will be true if at least one of the conditions is met (all other conditions don't even need to be evaluated). If you were doing something like this <pre>If (k1+k2+k3+k4+k5) <b><> 3 AND</b> (k1+k2+k3+k4+k5) <b><> 6 AND</b> (k1+k2+k3+k4+k5) <b><> 7 AND</b></pre> or this: <pre>If (k1+k2+k3+k4+k5) <b>= 3 OR</b> (k1+k2+k3+k4+k5) <b>= 6 OR</b> (k1+k2+k3+k4+k5) <b>= 7 OR</b></pre> You could use an array and the <a href="http://msdn.microsoft.com/en-us/library/system.array.indexof.aspx">IndexOf function</a>. Something like this (you might need to change the "<> -1" to "= -1" below): <pre> Dim myArray() As Integer = New Integer() {3, 6, 7, 8, 9, 11} ... If Array.IndexOf(myArray, k1+k2+k3+k4+k5) <> -1 Then listbox.add(... End If</pre> -CarlosDL