JEux utilisateur : probléme

Sub jeu()
Dim reponse As Integer

    reponse = InputBox("Nombre : ")
    If repOk(reponse) = True Then
        MsgBox "Bravo"
    Else
        MsgBox "Perdu"
    End If
    
End Sub

Function repOk(ByVal nb As Integer) As Boolean
Dim i As Integer
Dim tableau22()

    tableau22 = Array(1, 3, 5)

    For i = LBound(tableau22()) To UBound(tableau22())
        If nb = tableau22(i) Then
            repOk = True
            Exit Function
        End If
    Next i

    repOk = False
    
End Function