Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Const ROCK As Integer = 1

        Const PAPER As Integer = 2

        Const SCISSORS As Integer = 3

        Dim userChoice As Char

        Dim comChoice As String

        Dim result As String

        Randomize()

        Console.WriteLine("Choose (R)ock, (P)aper, or (S)cissors: ")

        userChoice = Console.ReadLine()

        comChoice = Int(Rnd()*3+1)

        If userChoice = "R" Or userChoice = "r" Then

            If comChoice = 1 Then 

                result = "Computer chose Rock: It's a Draw!"

            ElseIf comChoice = 2 Then

                result = "Computer chose Paper: You Lose!"

            ElseIF comChoice = 3 Then 

                result = "Computer chose Scisors: You Win!"

            End If

        ElseIf userChoice = "P" Or userChoice = "p" Then 

            If comChoice = 1 Then 

                result = "Computer chose Rock: You Win!"

            ElseIf comChoice = 2 Then

                result = "Computer chose Paper: It's a Draw!"

            ElseIf comChoice = 3 Then

                result = "Computer chose Scisors: You Lose!"

            End If

        ElseIf userChoice = "S" or userChoice = "s" Then

            If comChoice = 1 Then

                result = "Computer chose Rock: You Lose!"

            ElseIf comChoice = 2 Then

                result = "Computer chose Paper: You Win!"

            ElseIf comChoice = 3 Then 

                result = "Computer chose Scisors: It's a Draw!"

            End If

        End If

        console.WriteLine(result)

    End Sub

End Module