Access - Error #Size!

Function checkQTY(ByVal QTY As Variant)

    If IsNull(QTY) Then

        Me.CHECK = "Favor de registrar una cantidad o en su defecto un 0"

    Else

        If Me.QTY > Me.LIM Then

            Me.CHECK = "La cantidad ingresada es mayor al límite, favor de revisar"

        Else

            Me.CHECK = "Capturado correctamente"

        End If

    End If

End Function

=checkQTY([QTY])

Function checkQTY(ByVal QTY As Variant)

    If IsNull(QTY) Then

        checkQTY = "Favor de registrar una cantidad o en su defecto un 0"

    Else

        If Me.QTY > Me.LIM Then

            checkQTY = "La cantidad ingresada es mayor al límite, favor de revisar"

        Else

            checkQTY = "Capturado correctamente"

        End If

    End If

End Function