VBのテスト。コードは紛失、あちゃー