Virtual Lotto Machine

I joined Maker Studios & so can you!
Click here to see if your channel qualifies for RPM Network/Maker Studios: awe.sm/eDpWk

I've coded this program in visual basic, here is the main code to generate random number,

Dim gen As Long
gen = (Rnd() * 9)
TextBox1.Text = gen