Imports System
Public Module Module1
Public Sub Main()
const color as string = "blue"
Console.WriteLine("Guess the colour")
dim guess as string = Console.ReadLine()
If color = guess then
Console.WriteLine("Well done! You've guessed the colour")
Else
Console.WriteLine("You Failed ahhahaha")
End Sub
End Module