VB_003_Decision4

Module Module1

    Sub Main()

        Console.WriteLine("Please enter 1 or 2 or 3")
        Dim userValue As String
        userValue = Console.ReadLine()

'IIf - 
        Dim message As String = IIf(userValue = "3", "BIKE", "HOUSE")

        Console.WriteLine("You entered:{1}...So you won a {0}!", message, userValue)
        Console.ReadLine()

    End Sub

End Module