Kamien, papier, nozyce v1

Sub KaPaNo()
    Dim gracz1 As Long
    Dim gracz2 As Long
    Dim wybor As String
    Dim wygrane, przegrane, remisy As Long
    Dim tabKaPaNo()
    tabKaPaNo = Array("kamien", "papier", "nozyce")

    Randomize

    wygrane = 0
    przegrane = 0
    remisy = 0

    Do Until wygrane = 5
        gracz2 = (Rnd * 2)
        gracz1 = -1

        Do Until (gracz1 > -1 And gracz1 < 3)
            wybor = InputBox("Wpisz: Kamien, Papier lub Nozyce. Gra do 5 wygranych albo wpisz Q aby zakonczyc")
            Select Case LCase(wybor)
                Case tabKaPaNo(0)
                    gracz1 = 0
                Case tabKaPaNo(1)
                    gracz1 = 1
                Case tabKaPaNo(2)
                    gracz1 = 2
                Case "q"
                    Exit Do
            End Select
        Loop

        If gracz1 = -1 Then Exit Do

        If (gracz1 + 1) Mod 3 = gracz2 Then
            wygral = "Wygral Gracz 2!"
            przegrane = przegrane + 1
        ElseIf gracz1 = gracz2 Then
            wygral = "Remis!"
            remisy = remisy + 1
        Else
            wygral = "Wygral Gracz 1!"
            wygrane = wygrane + 1
        End If

        MsgBox _
            "Gracz 1: " & tabKaPaNo(gracz1) & vbCrLf & _
            "Gracz 2: " & tabKaPaNo(gracz2) & vbCrLf & _
            wygral

    Loop

    MsgBox _
        "Wygrane: " & wygrane & vbCrLf & _
        "Przegrane: " & przegrane & vbCrLf & _
        "Remisy: " & remisy & vbCrLf & _
        "Do widzenia!"
End Sub