字符判断

Public Function IsNumeric(Str As Variant) As Boolean
    ' NULL
    If Information.IsNull(Str) Then
        IsNumeric = False
        Exit Function
    End If
    
    ' EMPTY
    If Information.IsEmpty(Str) Then
        IsNumeric = False
        Exit Function
    End If
    
    '
    If Not Information.IsNumeric(Str) Then
        IsNumeric = False
        Exit Function
    End If
    
    Dim iLen As Integer
    iLen = Strings.Len(Str)
    
    ' 半角
    If iLen <> Strings.Len(Strings.Trim(Str)) Then
        IsNumeric = False
        Exit Function
    End If
    
    ' 全角
    If iLen <> Strings.LenB(Strings.StrConv(Str, vbFromUnicode)) Then
        IsNumeric = False
        Exit Function
    End If
    
    IsNumeric = True
    Exit Function
    
End Function