VBA中用split函数分割含有不定空格的STRING，该如何处理？

Line Input #1, onelinestring
Dim elementstring As Variant
elementstring = Split(onelinestring, " ")
Dim param(0 To 8) As String
For i = LBound(elementstring) To UBound(elementstring)
If (Len(elementstring(i)) <> 0) Then
param(j) = elementstring(i)
j = j + 1
End If
Next i

在处理txt文本：W -40.0 -100.0 500.0 450.0 0 0时候，提示j的下标超出范围，该肿么办？

如果空格不定，你可以先用Replace函数把两个空格换成一个空格，循环直到字串中不含有连续两个空格这种情况，然后再Split

函数都是在某个库中，如果不同库中有同名的函数，可以把库名加上去以明确哪一个。你试建两个通用模块，分别加入一个同名函数，调用时会报错，但前缀模块名就没事。所以如果不加vba没报错，说明总共就这一个函数，加不加都一样。实际这是明确了函数的完整路径，像文件路径一样。