关于split()函数的问题

空明

我在尝试用CommonDialog打开多个文件时，为分离各个文件名，用了split()函数，但结果却怎么也不对。具体代码如下：
Dim NewFileName() As String
CommonDialog1.filter = "Drawing Files(*.dwg)|*.dwg|" & "All Files(*.*)|*.*|"
CommonDialog1.flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = "选择文件..."
CommonDialog1.InitDir = "e:\"
CommonDialog1.ShowOpen
NewFileName() = Split(CommonDialog1.FileName, "
")   
'因为用监视窗口察看CommonDialog1.FileName各文件之间用
间隔，但此时的NewFileName(0) =CommonDialog1.FileName，即split()函数没起作用，但若我
定义CommonDialog1.FileName="E:\
pb02009083.dwg
pb02009082",则split()函数则
起作用，此时NewFileName() 为正确结果。
不知大家能否帮我解决这一难题，不胜感激。

mccad

NewFileName() = Split(CommonDialog1.FileName, Chr(0))

WWWDONG

你用的是r2002以下，它的vba为vb5,split为vb6的函数，你可用vb6将split做成dll函数，后在引用