这句数组赋值如何说小弟我REDIM无效

这句数组赋值怎么说我REDIM无效？
Public Function TrimArray(arr As Variant) As Variant
Dim k As Integer
  k = 0
  For i = 0 To UBound(arr)
  If arr(i) <> "" Then
  ReDim Preserve TrimArray(k)
  TrimArray(k) = arr(i)
  k = k + 1
  End If
  Next i
End Function

[解决办法]
ReDim Preserve TrimArray(k)

===================
ReDim 应该是一个变量，不能是函数名
你可以使用 ReDim Preserve aArr(k)

然后：
你的动作

最后：
TrimArray=aArr
[解决办法]
只有事先定义为数组才能redim 为数组。