代码如下:

'函数：空值测试 
Function inull(Val) 
Dim tmp 
tmp = False 
If IsNull(Val) Then 
tmp = True 
ElseIf IsEmpty(Val) Then 
tmp = True 
ElseIf Trim(Val) = "" Then 
tmp = True 
End If 
inull = tmp 
End Function 


测试变量是否为空值，空值的含义包括：变量不存在/为空，对象为Nothing，0，空数组，字符串为空 
Function IsBlank(ByRef Var) 
IsBlank = False 
Select Case True 
Case IsObject(Var) 
If Var Is Nothing Then IsBlank = True 
Case IsEmpty(Var), IsNull(Var) 
IsBlank = True 
Case IsArray(Var) 
If UBound(Var) = 0 Then IsBlank = True 
Case IsNumeric(Var) 
If (Var = 0) Then IsBlank = True 
Case Else 
If Trim(Var) = "" Then IsBlank = True 
End Select 
End Function