>>373
Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty,vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If Len(Trim(hoge)) = 0 Then IsNone = True
　　　　Case Is >= vbArray
　　　　　　IsNone = True
　　End Select
End Function

ArrayはVariant型以外の場合もあるから、この方がいい。