RE:Codigo para aproximar un numero en visual
En Excel tenés la ocpción redondear, pero en Visual, desconozo si existe alguna, pero si es factible crearla.
Primero tenés que tomar el número en una variable, considerando que la está ingresando un Usuario en un TextBox de la aplicación
NumFirst= Text1.Text
'Después buscás en la variable, si está el "." (punto)
Marcado=InStr(NumFirst, ".")
If Marcado <> 0 Then ' si es diferente a 0 es porque halló el signo "."
y te enuncia la posición del hallazgo
NumDecimal=Mid(numFirst, Marcado+1, Len(numFist))
NumFirst= Mid(NumFirst, 1,Marcado-1)
' NumDecimal ahora tiene el último o los últimos dígitos
después del punto y NumFirst tiene los Números enteros antes
del punto
If NumDecimal >=5 then
NumFirst=NumFirst +1
End If
Text1.Text= NumFirst
End If
De este modo, se evaluaría cada uno de los números ingresados en un TextBox y se reasignaría el número según corresponda.
Es medio a la que te criaste, pero bueno en teoría debería servir.
Ojo con la sintaxis, es que la hice de memoria, ya que estoy en el laburo, supongo que harán falta unas cuantas correcciones para que quede afinado.
Espero te sirva.
Mucha Suerte
PD: Obviamente debe haber una función que lo haga por sí sola, si la encuentro te aviso.