Update GetVendorFieldStrength.vba

General optimization