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.