MakeArrayMidDoubles

Function MakeArrayMidDoubles(InputArr As Variant) As Variant
Dim MidArr()
ReDim MidArr(UBound(InputArr) - 1)
For X = 0 To UBound(InputArr) - 1
    Dim FVal
    FVal = InputArr(X)
    Dim SVal
    SVal = InputArr(X + 1)
    MidArr(X) = (CDbl(FVal) + CDbl(SVal)) / 2
Next X
MakeArrayMidDoubles = MidArr
End Function