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