Imports System

Public Module Module1

    Public Sub Main()

    Dim input as string = console.readline()

        Dim answer(5) as string

    Dim output as string

    Dim Random as new random

    Dim rand as integer

        answer(0) = "No"

        answer(1) = "I don't think so"

        answer(2) = "Yes"

        answer(3) = "Niether"

        answer(4) = "Maybe some day"

        answer(5) = "Try asking again"

    rand = Random.Next(1, 6)

    output = answer(rand)

    console.writeline(output)   

    End Sub

End Module