VB: すべて半角なら True を返す関数

MS932 の範囲内のテキストでないとだめだけど……。

' すべて半角文字ならTrueを返す。
'
Public Function IsAllNarrow(ByVal Text As String) As Boolean
    IsAllNarrow = (LenB(StrConv(Text, vbFromUnicode)) = Len(Text))
End Function