Does anyone have the subject algorithm implemented in VBA?