title: Integer Overflow in VBA project
body: <p>everyone.  Here is a small VBA (Excel) function that i wrote, full of MsgBoxes for debugging.</p>
  
  <p>I am passing in the numbers 10 and 1 as arguments, and getting an overflow error when the program reaches the top of the For loop, before it begins the first iteration.</p>
  
  <p>Any thoughts are appreciated.</p>
  
  <pre><code>Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  
  Function PerformanceTest(iterations As Integer, interval As Integer) As Double
      Dim st, tot, k As Double
      Dim n As Integer
      tot = 0#
      MsgBox "ok"
      k = iterations + tot
      MsgBox "ookk"
      n = 1
      MsgBox "assigned"
      For n = 1 To iterations
          MsgBox n
          st = Timer
          Application.Calculate
          tot = tot + (Timer - st)
          Sleep (1000 * interval)
      Next n
      'MsgBox (tot / k)
      PerformancTest = tot / k
  End Function
  </code></pre>