まりふのひと

文字列が全て半角文字であるか否かを判定するモジュール

メールアドレスの整合性を調べるために作成した。

Const MYObjName As String = "modIs_Narrow"

Public Function is_Narrow(ByVal argString) As Boolean
On Error GoTo Err_is_Narrow
Dim mbTitle As String

    mbTitle = MYObjName & "/is_Narrow"
    is_Narrow = False
    If Nz(argString) = "" Then Exit Function
    If LenB(argString) = LenB(StrConv(argString, vbFromUnicode)) * 2 Then
        is_Narrow = True
    End If
    
Exit_is_Narrow:
    Exit Function
    
Err_is_Narrow:
    MsgBox Err.Number & "/" & Err.Description, vbCritical, mbTitle
    Resume Exit_is_Narrow
End Function