Titre du sujet VBA

Bonsoir,

Etant encore dans mes débuts avec VBA, j'ai essayé de résoudre un exercice, et j'ai besoin que quelqu'un me le corrige si possible, il s'agit de la question 4, et la 5 qu'est l'avant dernière question où on demande d'ajouter des bonus.

Merci d'avance

Ci-joint, la question 1 dans la photo 1, et le reste des questions dans la 2ème photo

Cordialement

Dim C(20) As Integer

n = InputBox("donnez un nombre entre 1 et 20")
n = (n Mod 5) * 3
nbpoints = 0

For i = 1 To n
    bonus = 0
    Randomize
    A = Int(6 * Rnd) + 1
        Do
            B = InputBox("donnez un nombre entre 1 et 100")
        Loop Until B >= 1 And B <= 100
        B = B Mod 6 + 1
            If A > B Then
                C(i) = A
            Else
                C(i) = B
            End If
            nbpoints = nbpoints + C(i) + bonus
Next

If nbpoints Mod 7 = 0 Then
    bonus = 10
ElseIf C(1) = 1 Then
    bonus = 10
ElseIf C(i) = 15 Then
    bonus = 10
Else
    bonus = 0
End If

Open "D:\Cours M1 GC\VBA\hayhat.txt" For Output As #63

For i = 1 To n
    Write #63, "nom du joueur", C(i), nbpoints, bonus
Next
Close #63

End Su