Module Module1
    Sub Main()
        Dim x As Integer, rand As New Random, a As Integer, b As String
        x = 1
        Do While x
            Console.WriteLine("Enter a question here!")
            b = Console.ReadLine()
            a = rand.Next(1, 5)
            If b = "exit" Then
                Exit Do
            End If
            Select Case a
                Case 1
                    Console.WriteLine("The answer is in your heart")
                Case 2
                    Console.WriteLine("The answer is no")
                Case 3
                    Console.WriteLine("The answer is yes")
                Case 4
                    Console.WriteLine("Go away and ask me later")
            End Select
        Loop
    End Sub
End Module

Commenting Options