Imports System

Public Module Module1

    Public Sub Main()

        Dim eyes As String

        Dim fur As String

        Dim tail As Boolean

​

​

        Console.WriteLine("State eye colour")

        eyes = Console.ReadLine()

        If eyes = ("green") Or eyes = ("violet") Then

            Console.WriteLine("State fur colour")

            fur = Console.ReadLine()

            If fur = ("red") Then

                Console.WriteLine("Go to Saturn!")

            Else

                Console.WriteLine("Go to Mars!")

​

            End If

        End If

​

        If eyes <> ("green") Or eyes <> ("violet") Then

            Console.WriteLine("State fur colour")

            fur = Console.ReadLine()

            If fur <> ("black") Then

                Console.WriteLine("Go to Neptune!")

            Else

                Console.WriteLine("Go to Mars!")

            End If

        End If

    End Sub

End Module