Programming a simple fortune teller with VB?

Just write this part! -(Click the "Start" button, and the previously entered statement will be randomly generated in the result box of "label 1")

Private subcommand 1_Click ()

Words = array ("asdf ","dfggfd ","gfhgh ")' can be added in this format.

Irregular

label 1 = Words(Rnd * UBound(Words))

End joint