Public Sub Txt_Change() If Not IsFloat(txt.text) Then Txt.text = "" Else If txt.text <> "" y = CFloat(txt.Text) Endif EndifEnd
il tutto doveva servire a limitare l'accesso alle text ai soli numeri e il puntino....