Imports System
Public Module Module1
Public Sub Main()
dim word() as array{"apple", "car","tree", "phone", "tv", "film", "arm", "game"} as string
dim randomword as string
word = GetRandom(0,7)
randomword = word(randomValue1)
End Sub
End Module