vba split vbbinarycompare