i tested this and it returned the correct result

Function revv(f)
Dim s As Long, t As Long, u As Long, v As Long
s = (f \ 2 ^ 21)
t = (f - s * 2 ^ 21) \ 2 ^ 14
u = (f - s * 2 ^ 21 - t * 2 ^...