@Darrel
i mean this line.

Code:
For DigLoop = 5 to 1 STEP -2
    Buf((6-DigLoop)/2) ' = Buf((6-5)/2) = 0.5 ??? Does it really works? Round it to zero?
Next DigLoop
I don´t tried it out, maybe it works