こんな感じかな。

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