Imports System

Public Module Module1

    Public Sub Main()

        Dim attempt as Integer = 0

        Dim guess As String

        Do

            Console.WriteLine("What colour tie is Mr Gowen wearing today?")

            guess = Console.ReadLine()

            attempt = attempt + 1

        Loop Until attempt = 3 or guess = "red"

        If guess.ToLower() = "red" Then

            Console.WriteLine("Well done, you are observant!")

        Else

            Console.WriteLine("You ran out of attempts!")

        End If

    End Sub

End Module