Clean up VBA arraylist code