No logro que el contador se incremente

[ARICARRARO]

Aqui esta el código.

Código:

Imports System.Math
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Verificar operaciones"
        Call CrearOperacion()
    End Sub

    Public Sub CrearOperacion()
        TextBox1.Text = CStr(Int(Rnd() * 1000))
        TextBox2.Text = CStr(Int(Rnd() * 1000))
        TextBox3.Clear() 'también puede ser TextBox3.Text=""
    End Sub

    Public Sub Comprobar()
        Dim intentos As Integer
        Dim fallos As Integer
        Dim aciertos As Integer
        Call CrearOperacion()

        

        If TextBox1.Text + TextBox2.Text = TextBox3.Text Then

            intentos = intentos + 1
            TextBox4.Text = CStr(intentos)
            TextBox5.Text = CStr(aciertos)
            aciertos = aciertos + 1
            Call CrearOperacion()


        Else
            fallos = fallos + 1
            TextBox6.Text = CStr(fallos)
        End If

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Comprobar()

    End Sub
End Class

El problema es que no logro que el contador (o contadores) de fallos, aciertos e intentos se incremente ¿Qué estoy haciendo mal?

Gracias por sus respuestas