Creo que Round() no tiene nada que ver con lo que buscas.
Yo haría algo así:
Código vb:
Ver originalFunction Redondea(Numero As Long) As Long
Dim Divisor As Long
Numero = Int(Numero)
Divisor = Int(Numero / 5)
If Numero - (Divisor * 5) > 2 Then Divisor = Divisor + 1
Redondea = Divisor * 5
End Function
Saludos