Has anybody the vb code of these two algorithms. I would need them. thx