Function Round(MainNumber As Double, Number As Integer) As Double
Dim C As Double
Dim D As String
C = Int((MainNumber * 10 ^ (Number + 1)))
D = Right(CStr(C), 1)
If CDbl(D) >= 5 Then
C = C + 10
C = Int(C / 10)
Else
C = Int(C / 10)
End If
Round = C / 10 ^ Number
Exit Function
End Function