keep a tally in Visual Basic 6

[Sung Lee]

Hello,
I'm trying to keep a tally in visual basic 6.
Details of the case: I've created a random number function that produces a number between -3 to 3. and i'm generating a number for a 1000 times. I want to keep a tally so that I know how many times a number greater or equal to 0 was produced.

[Guido Geurs]

Dim a variable for each number.
Just after the creation of the random number, add 1 to a variable.
after 1000 times, put the variales in a textbox.

Dim NMBRmin3 as integer
Dim NMBRmin2 as integer
....
.... 'code of creation number in variable with name  RANNMBR
...
select case RANNMBR
case -3
   'Add count to counter NMBRmin3
   NMBRmin3= NMBRmin3+1
case -2   'Add count to counter NMBRmin2
   NMBRmin2= NMBRmin2+1
....
end select
....
...
 
'after 1000 loops
textbox1.text= "number -3 times = " & NMBRmin3 &  vbnewline & _
"number -2 times = " & NMBRmin2 &  vbnewline & _
.....
....