>>364-365
配列は要素数の空判定でお茶を濁そう。

これ以上のブラッシュアップは断念。
コードとしてはそこそこ美しいと思う。

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty
　　　　　　IsNone = True
　　　　Case vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If hoge = vbNullString Or hoge = "" Then IsNone = True
　　　　Case vbArray + vbVariant
　　　　　　If Ubound(hoge) = -1 Then IsNone = False
　　End Select
End Function