Private?Sub?Command1_Click()
Randomize
Dim?a(8)
Dim?n
For?n?=?1?To?8
a(n)?=?Int(Rnd?*?10)
Next
Text1.Text?=?"153-"?&?a(1)?&?a(2)?&?a(3)?&?a(4)?&?a(5)?&?a(6)?&?a(7)?&?a(8)
End?Sub