How can i round a number to the nearest 10?

[thomasmcgeown]

Im trying to set a vsb so that the value can only be a multiple of 10.

Is there a simple way to do this.

Thanks

Tom

 

[sunaj]

Hi,

Put a button and a textbox on a form and try this:
-------------------------------------
Private Sub Command1_Click()
MsgBox (Round(Text1.Text / 10) * 10)
End Sub
-------------------------------------


Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[thomasmcgeown]

excellent thank you very much for the help, didnt completly solve the problem, but set meon the right track to do so.

im eternally grateful