カタカナ判定 (ID:118467)

名前

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

本文 If StrConv(Text1.Text, vbWide) <> StrConv(StrConv(Text1.Text, vbWide), vbHiragana) Then MsgBox "カタカナあります" End If 花ちゃんさんの案を参考に、StrConvだけで。どうでしょう？