Coordinate calculation program VBA4.9