Redondear a la alza?

[mariano_donati]

Tenés razón, no me había percatado de ese detalle. Acá lo arreglé, espero que te sirva.

Function RoundNumber(NumberToRound)

If TypeName(NumberToRound) = "Double" Then
Dim vRoundedNumber
Dim vIntNumber
Dim vRoundNumber

IntNumber = Int(NumberToRound)
RoundNumber = Round(NumberToRound)

If IntNumber = RoundNumber Then
RoundedNumber = IntNumber + 1
Else
RoundedNumber = RoundNumber
End If
Else
RoundedNumber = NumberToRound
End If

RoundNumber = RoundedNumber

End Function

P.D. Si maestro!, hacia mucho tiempo la verdad que no me daba una vuelta por este foro. Estoy tratando de encaminarme para el lado de .Net con todas las ventajas que ofrece. Saludos U Goldman!.