Loop Through String Array Vba Syntax Substring C