How to make a value to nearest ten (e.g. 47 to 50 or 43 to 40)

Please help me for VB6.