无法在VBA中返回字符串数组

Function GetStringArray() As Collection
    Dim arr As New Collection
    arr.Add "String 1"
    arr.Add "String 2"
    arr.Add "String 3"
    
    Set GetStringArray = arr
End Function

Function GetStringArray() As String
    Dim result As String
    result = "String 1;String 2;String 3"
    
    GetStringArray = result
End Function

Sub Test()
    Dim arr() As String
    arr = Split(GetStringArray(), ";")
    
    ' 遍历数组
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub