Imports System

Public Module Module1

    Public Sub Main()

        dim colour as string

        Console.WriteLine("Please enter trafic light colour. ")

        colour = Console.ReadLine()

        if colour = "green"

            Console.Write("Go ")

        elseif colour = "orange" OR colour = "amber"

            Console.WriteLine("Get ready ")

        else

                Console.WriteLine("Stop ")

                end if

    End Sub

End Module