Totaling a list box full of numbers

[jKin]

Hi,

I would like to total a list box full of numbers and put this total in a text box. I have tried this code, but when I run it I get a “type mismatch” error.

For i = 1 To List4.ListCount
x = x + CInt(List4.List(i))
Next
txtTotals(0).Text = x

when I take the CInt off, it adds up the numbers but puts them in a string format: 3502550, instead of adding 350+25+50

Thanks very much for any help!!!

 

[harebrain]

Try declaring your variables as integers. Note that the array that holds the listbox contents is zero-based.

  Dim i As Integer
  Dim x As Integer
  
  For i = 0 To (List4.ListCount - 1)
    x = x + CInt(List4.List(i))
  Next

  txtTotals.Text = x