Arpoximar valores

Buenas tardes.
Hace un tiempo tu un experto me envío la siguiente función que aproxima valores:
Function sabogal(Num As Long)
cat = Num Mod 1000
If cat <= 500 Then sabogal = Num - cat
If cat >= 501 Then sabogal = Num + (1000 - cat)
End Function
Funciona perfectamente, solo que ahora necesito que la aproximación sea siempre por exceso, es decir, que si el resultado es 3.1 me escriba 4, si el resultado es 3.6 me escriba 4, siempre el número superior.
Lo que necesito es tomar cierta cantidad de días y dividirla por 30 para determinar el número de meses, y si el resultado es por ejemplo 3 meses y 5 días me debe escribir 4 meses y si el resultado es 25 meses 20 días me debe escribir 26 meses. Puede que el resultado de 5 meses o 70 meses, es decir, que puede que se maneje unidades (6 meses) o decenas (30 meses).
Gracias.