Excel Vba If String Contains Partial Fraction