How to generate only whole numbers?

[Dude1]

Hi, this is what I have:

Dim i As Single

Private Sub Command1_Click()
For i = 1 To 16
Text1.Text = i * Rnd
Next
End Sub


I get decimal numbers in my text box, how can I limit them to only whole numbers? Thanks

[axion_sa]

Text1.Text = CInt(i * Rnd)

[Dude1]

Thanks, that worked