VBA Subtracting doubles weird results

Question

I am trying to do a simple subtraction with two doubles in VBA but I am getting weird results.

Public Function Test() As Double
    Dim Test As Double
    Test =