Subtract the rounded result from the whole.
Dim Total as Double = 8672.59
Dim OneHalf = Math.Round(Total/2, 2)
Dim SecondHalf = Total - OneHalf
In your example, Total = 8672.59, so OneHalf = 4336.30 (rounded)
SecondHalf = 8672.59 - 4336.30 = 4336.29.