Why do you want to do it in VBA, why not a formula?