Perfect I thought it was easy, but not so easy :)
one more thing
userform macro
there is a textbox box
when I insert positive number working
error with negative value
' corquo is defined public as double
'-----------------------------------------------------------
Private Sub TextBox_corquo_Change ()
corquo = TextBox_corquo.Value
end Sub
'------------------------------------------------------------------------
in another macro to solve the problem I have done this
Private Sub label_fs_Change()
Dim scala As String
fs = Val(label_fs.Text)
End Sub
What do I do accept negative values?