Dim Player1 As String
Dim Player2 As String
Private Sub Command1_Click()
Do
Player1 = InputBox("Choose Scissors Paper or Stone.", "Player1")
If Player1 <> "Scissors" And Player1 <> "Paper" And Player1 <> "Stone" Then
Print MsgBox("Either you cant spell or you are not using capitals, please obey!!")
End If
Loop Until (Player1 = "Scissors" Or Player1 = "Paper" Or Player1 = "Stone")
Do
Player2 = InputBox("Choose Scissors Paper or Stone.", "Player2")
If Player2 <> "Scissors" And Player2 <> "Paper" And Player2 <> "Stone" Then
Print MsgBox("Either you cant spell or you are not using capitals, please obey!!")
End If
Loop Until (Player2 = "Scissors" Or Player2 = "Paper" Or Player2 = "Stone")
If Player1 = "Scissors" And Player2 = "Scissors" Then
Print MsgBox("Its a Draw")
ElseIf Player1 = "Scissors" And Player2 = "Paper" Then
Print MsgBox("Player1 Wins!!")
ElseIf Player1 = "Scissors" And Player2 = "Stone" Then
Print MsgBox("Player2 Wins!!")
ElseIf Player1 = "Paper" And Player2 = "Paper" Then
Print MsgBox("Its a Draw")
ElseIf Player1 = "Paper" And Player2 = "Scissors" Then
Print MsgBox("Player2 Wins!! The computer chose Scissors")
ElseIf Player1 = "Paper" And Player2 = "Stone" Then
Print MsgBox("Player1 Wins!!")
ElseIf Player1 = "Stone" And Player2 = "Paper" Then
Print MsgBox("Player2 Wins!!")
ElseIf Player1 = "Stone" And Player2 = "Scissors" Then
Print MsgBox("Player1 Wins!!")
ElseIf Player1 = "Stone" And Player2 = "Stone" Then
Print MsgBox("Its a Draw")
Else
Print MsgBox("Agghhh. Whats happening???")
End If
End Sub
Private Sub Command2_Click()
Choose.Show
Unload Me
End Sub