Visual Basic - formato a un cuadro de texto

como hacer que un cuadro de texto tenga 2 decimales y no acepte números negativos ni cero.

COMMAND1_CLICK '<<--Boton
'este codigo tambien lo puedes poner en el vento change del textbox, pero primero puébalo en el evento click de un boton.

dim a as currency

if text1.text=0 or text1.text<0 then
msgbox "escribe algo mayor de cero"
exit sub
end if

a=format (text1.text,"currency") <<-- para que te dé los dos decimales

END SUB