VB 全角文字有無のチェック

Function NoMultiByte(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 NoMultiByte = False Else NoMultiByte = True End If End Function