ご回答ありがとうございました。 VBのコードは質問を分かりやすくする為に書きました