validación de precios

[sielfi]

Hola. Tengo este código para validar que en un textbox solo se ingresen precios mayores o iguales a 0,10 y menores o iguales a 2000.

Código:

Private Sub Text3_LostFocus()
    Dim preciomenor@
    Dim preciomayor@
    If Len(Trim(Text3.Text)) >= 1 Then
        If IsNumeric(Text3) Then
            preciomenor = "0.10"
            preciomayor = "2000"
            If Text3 < preciomenor Then
                Text3 = ""
                Text3.SetFocus
                MsgBox "No se pueden ingresar precios menores a $0.10", vbCritical, "Atención"
            ElseIf Text3 > preciomayor Then
                Text3 = ""
                Text3.SetFocus
                MsgBox "No se pueden ingresar precios mayores a $2000 ", vbCritical, "Atención"
            End If
        Else
            MsgBox "Lo que ingresó no es un precio"
        End If
    Else
        KeyAscii = 0
    End If
End Sub

Pero no funciona bien. Si pongo un precio mayor a 2000 funciona, porque me sale el mensaje de que no puedo ingresar precios mayores a 2000. Pero si pongo 1 peso o 0,10, no funciona, me sale el mensaje diciendo que no se pueden ingresar precios menores a 0,10(Y en realidad no son menores).

¿Alguien puede ayudarme?

Gracias!

[lokoman]

Hola!!
Probe tu CODE y funciona bien, el problema es que tienes "0.10" en la variable "PrecioMenor" y tu estas ingresando en el Text3 el valor con una coma como separador decimal "0,10", por eso es el error...

O cambias el valor de "PrecioMenor" a "0,10" o introduce por teclado "0.10" y bloqueas las comas.

[Gakex]

Cuando se trata de ingresar y trabajar con números hay que tratarlos como tal, si trabajas con decimales tienes que usar variables de coma flotante (double)
espero que funcione este codigo:

Código:

Private Sub Text3_LostFocus()
    Dim preciomenor as double
    Dim preciomayor as double
    If Len(Trim(Text3.Text)) >= 1 Then
        If IsNumeric(Text3) Then
            preciomenor = 0.10
            preciomayor = 2000
            If val(Text3) < preciomenor Then
                Text3 = ""
                Text3.SetFocus
                MsgBox "No se pueden ingresar precios menores a $0.10", vbCritical, "Atención"
            ElseIf val(Text3) > preciomayor Then
                Text3 = ""
                Text3.SetFocus
                MsgBox "No se pueden ingresar precios mayores a $2000 ", vbCritical, "Atención"
            End If
        Else
            MsgBox "Lo que ingresó no es un precio"
        End If
    Else
        KeyAscii = 0
    End If
End Sub