Estou com dificuldades neste projeto final, tema- videojogos

[joaorebouta 0]

Boa tarde!

Com este programa os meus objectivos são:

1-Fazer uma pergunta a utilizador de quantos formulários quer fazer;

2-Depois a pessoa selecciona o radiobutton que lhe interessa;

3-Aparece uma mensagem a dizer obrigado pela votação;

4- Escreve na listbox quantas vezes votaram neste Radiobutton;

O erro que tenho é quando escreve o Rpg que é o texto de um radiobutton aparece o numero de questionarios que a pessoa quer fazer e nao esta a somar so aparece o 1 nao soma a variavel volta sempre a 0

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim i, n, Conta1, Conta2, Conta3, Conta4, Conta5, Conta6 As Integer
        Conta1 = 0
        Conta2 = 0
        Conta3 = 0
        Conta4 = 0
        Conta5 = 0
        Conta6 = 0

        For i = 1 To n

            If RadioButton1.Checked Then
                Conta1 = Conta1 + 1
                ListBox1.Items.Add("RPG =" & Conta1)
            ElseIf RadioButton2.Checked Then
                Conta2 = Conta2 + 1
                ListBox1.Items.Add("Survival =" & Conta2)
            ElseIf RadioButton3.Checked Then
                Conta3 = Conta3 + 1
                ListBox1.Items.Add("Ação =" & Conta3)
            ElseIf RadioButton4.Checked Then
                Conta4 = Conta4 + 1
                ListBox1.Items.Add("Terror =" & Conta4)
            ElseIf RadioButton5.Checked Then
                Conta5 = Conta5 + 1
                ListBox1.Items.Add("Survival=" & Conta5)
            ElseIf RadioButton6.Checked Then
                Conta6 = Conta6 + 1
                ListBox1.Items.Add("MOBA=" & Conta6)
            End If
        Next

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        n = InputBox("Quantas votações deseja fazer?")

Link da interface do meu programa

https://imgur.com/a/vzxFiqu