MS932 の範囲内のテキストでないとだめだけど……。 ' すべて半角文字ならTrueを返す。 ' Public Function IsAllNarrow(ByVal Text As String) As Boolean IsAllNarrow = (LenB(StrConv(Text, vbFromUnicode)) = Len(Text)) End Function