textbox decimal -> VB

[karlo_]

Tengo el siguiente problema
manejo un textbox con numeros del 40.00 al 100.00
ocupo hacer que el textobos reconozca que despues del punto nada mas se puedan digitar dos decimales
Ej: 50.56
90,67
40.00

tengo el siguiente codigo pero no me quiere funcionar
cual será el problema.

evento Text1_Change:

pos_punto = instr(Text1,".")
if Len(Text1) - len (Left (Text1,pos_punto)) > 2 Then Text1 = Left(Text1,
Len(Text1 - 1))

Si relamente no sirve como se podrá implemetar entonces.

Gracias
Muchas Gracias.

[Mickel]

se me ocurre, en el lostfocus
if not isnumeric(text1.text) then text1.text="40"
'asegurandonos de que sea un valor numerico
if cdbl(text1.text)<40 then text1.text="40"
'valor minimo 40
if cdbl(text1.text)>100 then text1.text="100"
'valor maximo 100
text1.text=format(text1.text,"#0.00")

[karlo_]

bueno mas que todo no queria validar el rango solo que aceptara lo dos decimales pero voy a probar
MUCHAS GRACIAS.

[Reyis]

Ya probaste con el control MaskEdBox?, este podría servirte y sin tanta programación.

[karlo_]

y si en lugar de verificar en los eventos del lostfocus y change

se hace lo siguiente

introduzco el numero 45.789 numero incorrecto lo ocuparia así
45.78.

Como se podría realizar para despues de introducirlo mejor verificarlo a la hora de presionar un boton ya que este numero lo ocupo guardar entonces me que daría bien hacer la verificación en le botón.
Como sería entonces.

Gracias.

[kakarot]

una alternativa seria a partir del primer punto hacer un len, y si el numero resultante es mayor q dos, coger solo los dos primeros con la funcion MID

[VBCode]

decime tu mail y te mando la solucion