Random word on vb

Dim Key As Integer
Key =Int(Rnd()* 10)
select Case Key
Case 0
textbox1.text = "1"
end select