Mid Vba Function