title: How to get even or odd numbers
body: <p>I don't know why this program doesn't works. I get a random number and the computer select what type it is even or odd ?</p>
  
  <pre><code>Dim a As New Random()
  
      Dim b As Integer
      Dim ca As Integer
      b = a.Next(0, 10)
      Debug.Print(b)
  
      ca = b / 2
  
      If ca = 0 Then
          Debug.Print("Even")
      Else
          Debug.Print("Odd")
      End If
  </code></pre>