Excel Function Extract Number From String R