結果 : mid string function vba