半角チェック

Private Function IsMultiByte (Value As String) As Boolean
    Dim LetterCount As Long        '文字列の文字数
 
    Dim ByteCount As Long            '文字列のバイト数
 
    LetterCount = Len(Value)
 
    ByteCount = LenB(StrConv(Value, vbFromUnicode))
 
    If LetterCount <> ByteCount Then  IsMultiByte = True
 
End Function