这段代码哪里错了？怎么得不到数组？

Dim MyArray()
    Dim tmpStr As String
    Dim i As Long
    Dim HostTime As Date


    
    SysTime_Setting = True
    tmpStr = GetDatabaseConfig(dptDatabaseName, "Microsoft Access")
    Debug.Print tmpStr '这句输出了"\\Mlks-server\glxt\Data.mdb"
    MyArray = Split(tmpStr, "\")
    Debug.Print UBound(MyArray) '这句不出
    For i = 0 To UBound(MyArray)
        Debug.Print "MyArray(" & i & ")=" & MyArray(i) '这句也不出
    Next i