How to generate only whole numbers?

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

VB Code:

Text1.Text = CInt(i * Rnd)

Thanks, that worked