Imports System

Public Module Module1
    Public Sub Main()

        dim check as boolean = false
        dim symbol as string=""

        console.WriteLine ("please enter a symbol")
        Do
            try
            symbol = console.ReadLine()
            If symbol = "+" Or "-" Or "/" Or "*" Then
                check = True
            Else
                console.WriteLine ("that is not a symbol, please try again")
                End If
                catch ex as Exception
            end try

        Loop Until check = True

        console.WriteLine("{0}",symbol)

    End Sub
End Module