Não lembro de alguma que arredonda para cima, então fiz a minha, acho que dá certo.
Private Function Arredonda(Numero As Double) As Integer
Dim Contador As Integer
If InStr(1, Numero, ".") <> 0 Then
For Contador = InStr(1, Numero, ".") To Len(Numero)
If Mid(Numero, Contador, Contador) <> 0 Then
Numero = Numero + 1
Exit For
End If
Next
Arredonda = Mid(Numero, 1, InStr(1, Numero, "."))
Else
Arredonda = Numero
End If
End Function