（）内を置換し削除させるには？ (ID:125512)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 KGさん、ありがとうございます。 cnt1 = InStr(strNameSP, "(") cnt2 = InStr(strNameSP, ")") cnt3 = cnt2 - cnt1 strNameSP = Replace(strNameSP, Mid(strNameSP, cnt1, cnt3 + 1), "") こんな感じにすると何とか（）内は削除できました。 大変申し訳ないのですが、（）がテキストに何個もあるときや （）がとじられてなく"（"だけの時のエラー表示などをしたいのです。 何か良い方法はありませんでしょうか？