how to roundup and round down textbox value

[manissinha]

Hi All,

I have created userform and want to roundup and round down the entered values

If i enter positive value with decimal value it should round down
example if i enter 5.01 it should give 5.00 , or for 5.99 should give 5.00

If i enter negative value with decimal value it should round up
example if i enter 5.01 it should give 6.00 , or for 5.99 should give 6.00

regards
manish

 

[Kenneth Hobson]

Private Sub TextBox1_AfterUpdate()
  With TextBox1
    If Not IsNumeric(.Value) Then Exit Sub
   .Value = Format(Evaluate("int(" & .Value & ")"), "0.00")
  End With
End Sub