結果 : mid function in visual basic