title: Visual Basic - 1-100 with numbers that are divisible by 2 and 3
body: <p>The console seems to keep printing a repetition of the value '1'
  Maybe this is because I am not incrementing the value correctly within the loop?
  Or am I declaring the value of the variable in an incorrect location</p>
  
  <pre><code>Dim divx As Integer
      Dim divy As Integer
  
      divx = 1
  
      Do While divx &lt; 100
  
          divy = divx Mod 2
  
          If Not (divy = 0) Then
              Console.WriteLine(divx)
          Else
              divx += 1
          End If
  
      Loop
  </code></pre>