判断指定对象是否为空值, 包含大部分情况, 譬如空数组,空字符串,Empty和Null对象等等

Private Function IsBlank(byref TempVar)
	IsBlank = False
	Select Case VarType(TempVar)
		Case 0, 1 '--- Empty & Null
			IsBlank = True
		Case 8 '--- String
			If Len(TempVar) = 0 Then
				IsBlank = True
			End If
		Case 9 '--- Object
			tmpType = TypeName(TempVar)
			If (tmpType = "Nothing") Or (tmpType = "Empty") Then
				IsBlank = True
			End If
		Case 8192, 8204, 8209 '--- Array
			If UBound(TempVar) = -1 Then
				IsBlank = True
			End If
	End Select
End Function

VarType 函数返回下列值：