UBound怎么判断返回值是Undefined

Public Function GetPID()
    Dim ks()
    redim preserve ks(j)
    GetPID = ks
End Function

Public Function test()
    dim tt
    tt = GetPID()
    log.Message UBound(tt)
End Function 

根据上面代码我从GetPID方法中获得一个数组，由于该数组中没有任何元素，所以我在test方法中使用时UBound方法时得到“数组下标越界”，然后我看了UBound的介绍如果数组中没有元素，UBound的返回值是Undefined，我如何判断UBound(数组名)的返回值是Undefined --------------------编程问答-------------------- 以前就有，baidu好好搜搜。。。
可以直接用copymemory  --------------------编程问答-------------------- safearraygetdim --------------------编程问答-------------------- 判断一个数组是否初始化:
http://bbs.csdn.net/topics/270065874

补充：VB ,  资源