Imports System

Public Module Module1

    Public Sub Main()

        dim value as string

        Console.WriteLine("Name one of the olympic values. ")

        value = Console.ReadLine()

        if value = "Respect" OR value = "Excellence" OR value = "Friendship"

            console.WriteLine("That's correct ")

        else Console.WriteLine("Incorrect ")

        end if

    End Sub

End Module