Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Randomize() 

        Const ROCK As Integer = 1 

        Const PAPER As Integer = 2 

        Const SCISSORS As Integer = 3 

        Dim computerThrow As Integer = Int(Rnd() * 3 + 1) 

        Dim userThrow As Char 

        Dim messege As String

        If userThrow = "R" Or userThrow "r" Then 

            If computerThrow = ROCK Then

                messege = "Its a tie"

            ElseIf computerThrow = Paper Then 

                messege = "paper wins"

            ElseIf computerThrow = SCISSORS Then

                messege = "rock wins"

            End If 

                If userThrow = "P" Or userThrow "p" Then

                    If computerThrow = PAPER Then

                        messege = "Its a tie"

                    ElseIf computerThrow = ROCK Then

                        messege = "Paper wins"

                    ElseIf computerThrow = SCISSORS 

                        messege = "Scissors wins"

                    End If

                        If userThrow = "S" Or userThrow "s" Then

                            If computerThrow = SCISSORS Then

                                messege = "Its a tie"

                                If computerThrow = PAPER Then

                                    messege = "Scissors wins"

                                    If computerThrow = ROCK Then

                                        messege = "Rock wins"

                                    End If

                            Console.WriteLine("The result is" & messege )

    End Sub

End Module