I want to find rounding functions. In VB60. The function can be fulfilled in the for example below

for example:

794.5 = 795

843.4 = 843

245.345 = 245

I used the function: Round(), Int(), Fix() but not.