Excel - Redondeo en VBA

Hola foro,

estoy intentando calcular el redondeo de un numero(variant) en intervalos de 0,5 es decir:

Variable=2 lo mantiene en 2
Variable =2,6 lo convertiria en 3
Variable=2,3 lo convertiria en 2,5
Variable =2,2 lo convertiria en 2

he probado con Rdn(Variable,1) pero me falta algo.

¿alguna ayuda ?

Gracias

Podrías usar algo como:

=BUSCAR(RESIDUO(C10;1); {0;0,25;0,75;1};{0;0,5;1;1}) + ENTERO(C10)

o en VBA

ActiveCell.FormulaR1C1 = _
"=LOOKUP(MOD(RC[-1],1), {0,0.25,0.75,1},{0,0.5,1,1}) + INT(RC[-1])"