将split函数用于数组导致编译错误：无法分配给数组

Question

我正在尝试使用split()函数根据给定名称字符串中的空格拆分名称。在尝试编译我在下面编写的代码时，我得到一个编译错误：“无法分配给数组”。

我几乎从这里复制了微软的例子：https://support.microsoft.com/en-us/kb/266289

谁能告诉我我做错了什么？

Public Function cleanName(position As Integer, inName As String) As String

Dim nameArray() As String
Dim outName As Variant

nameArray = Split(inName, " ")

Select Case position
    Case 1 'Titles
        outName = nameArray(0)
    Case 2 'First Name
        outName = nameArray(1)
    Case 3 'Middle Name
        outName = nameArray(2)
    Case 4 'Last Name
        outName = nameArray(3)
    Case 5 'Suffix
        outName = nameArray(4)
    Case Else
End Select

cleanName = outName

End Function

Answer 1

我回到这里，因为我已经知道答案是我的同事编写了一个名为split的模块，它保留了我之前的代码，因为它返回了一组不同的参数。