VB_0003_Decision3

Module Module1

    Sub Main()

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

        Dim message As String

        If userValue = "1" Then
            message = "1:You won the CAR"

        ElseIf userValue = "2" Then
            message = "2:You won HOUSE"

        ElseIf userValue = "3" Then
            message = "3:You won BIKE"

        Else
            message = " Sorry...wrong choice"

        End If

        Console.WriteLine(message)
        Console.ReadLine()

    End Sub

End Module