Run-time error '13': Type mismatch en VB 6.0

[aldeiv]

Hola, soy un poco novato en esto de programar y me sale este error cuando intento hacer una cosa. Explico:

Estoy creando un programa para que el que lo use pueda practicar las tablas de multiplicar.

El código es este:

Código:

Dim aciertos As Byte
Dim fallos As Byte
Dim num As Byte


Private Sub Form_Load()
Randomize


num = Int((10 - 0 + 1) * Rnd + 0)
Label4.Caption = num

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim total As Byte
total = Label4.Caption * Label2.Caption

    If KeyAscii = vbKeyReturn Then
        
        If Text1.Text = "" Then
            fallos = fallos + 1
        End If
        
        If Text1.Text = total Then
            aciertos = aciertos + 1
        Else
            fallos = fallos + 1
        End If
        
        
        Text1.Text = ""
        
        Randomize

        num = Int((10 - 0 + 1) * Rnd + 0)
        Label4.Caption = num
        
    
        KeyAscii = 0
    End If

Label8.Caption = aciertos
Label9.Caption = fallos

End Sub

y tengo creados unos cuantos labels en el que se ponen los numeros que tiene que multiplicar mediante un Rnd, y un textbox en el que pone la solución. Cuando pulsas intro mira el resultado que has puesto y si está bien suma 1 a aciertos y si está mal suma uno a fallos.

Eso va todo bien, este error sale cuando no pongo nada en la caja de texto y pulso Intro. Si le doy a debug me señala la linea que está en negrita. Al principio en esa línea no habian variables y despues he ido probando y las he puesto, pero sigue dando error.


¿Alguien me puede ayudar? Gracias de antemano

[Daniel_7]

El codigo es este:

If Text1.Text = "" Then
fallos = fallos + 1
Else If Val(Text1.Text) = total Then
aciertos = aciertos + 1
Else
fallos = fallos + 1
End If

eso x q estabas comparando un tipo numerico con uno nulo o vacio y te da error

[aldeiv]

ok gracias me has servido de mucha ayuda