>>348
もちろん自由に使えばいいけど、スマホで書いてるのでPCテストしてない。自己責任でよろしく。

読み返したら、Is Nothing のところは明らかにエラーになると思うので、こんな感じのほうがいいかも。（PCテストしてないので自信はない。あしからず）

Function IsNone(hoge) as Boolean
　　If IsObject(hoge) Then
　　　　If hoge Is Nothing Then IsNone = True
　　End If
　　Select case True
　　　　Case IsNull(hoge)
　　　　　　IsNone = True
　　　　Case IsEmpty(hoge)
　　　　　　IsNone = True
　　　　Case hoge = ""
　　　　　　IsNone = True
　　　　Case hoge = vbnullstring
　　　　　　IsNone = True
　　　　Case Else
　　　　　　IsNone = False
　　End Select
End Function

なんか美しくないね。
ま、好きなように書き換えて。