主题：集合的运用

dr1("不可见列")的内容："序号|开标日期|招标类型|工程名称|中标金额|合同编号|合同工期|竣工日期|项目负责人|联系电话|所附文件|责任协议编号|项目经理|税费比例|管理费比例|评审金额|进项税额|进项附加"

Dim v1() As String = {"" & dr1("不可见列").Replace("|",""",""") & ""}
msgbox(v1(0))

我想上述代码的结果出来的是一个长度为18的集合，但是实际长度仅为1，错误的原因是什么？