Dim Input1 As String
Dim Input2 As String
Dim Player1 As String
Dim Player2 As String
Private Sub Command1_Click()
Player1 = Label1.Caption
Player2 = Label2.Caption
Input1 = InputBox("What was Player one Score?")
If Input1 = "" Then
Input1 = "0"
End If
Label1.Caption = (Player1) - (Input1)
If Label1.Caption < 41 And Label1.Caption > 0 Then
Print MsgBox("Double " & Int(Label1.Caption / 2) & " required")
End If
If Label1.Caption = 0 Then
Print MsgBox("You have completed the game!")
End If
Input2 = InputBox("What was Player two Score?")
If Input2 = "" Then
Input2 = "0"
End If
Label2.Caption = (Player2) - (Input2)
If Label2.Caption < 41 And Label2.Caption > 0 Then
Print MsgBox("Double " & Int(Label2.Caption / 2) & " required")
End If
If Label1.Caption = 0 Then
Print MsgBox("You have completed the game!")
End If
End Sub
Private Sub Form_Load()
Label1.Caption = "501"
Label2.Caption = "501"
End Sub