TEST以下を消去するVBスクリプトさくっと教えてくれや