Sub TextBoxEvent_Start()
Rem TODO: Add your code here
End Sub
Sub TextBoxEvent_Exec(Inputs,Outputs)
Value = CDbl(TextBox.Text)
IntVal = Int(Value)
Str = Len(IntVal)
Txt = Left(TextBox.Text,Str+3)
Outputs(0).Value = CDbl(Txt)
End Sub
Sub TextBoxEvent_Stop()
Rem TODO: Add your code here
End Sub