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!