メールアドレスの整合性を調べるために作成した。
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