使用VBE通过vba修改函数中的字符串数组

Question

让我先谈谈到目前为止我手边的事情：

我有一个名为arr的函数，它包含一个case语句，我在仓库中处理我在处理过程中调用的数组。

Function arr(MySet as String)
     Select Case MySet
     Case Is = "Projects"
         Arr = Array("X0006044", "X0006091", "X0006661", "X0010120")
     Case is = "Food"
         Arr = Array("Mac", "Cheese", "Sandwich", "Soup", "Salad")
     End Select
End Function

我可以通过引用数组来简单地在代码中返回数组的内容：

pick = "Projects"
    lngProjectsTotal = UBound(Arr(pick)) - LBound(Arr(Pick)) + 1
    'Other interesting array manipulations go here...

现在，我想从userform添加和删除Projects数组中的项目。 用户形式：

1. 显示当前数组
2. 有一个文本框，操作员可以在其中添加新的项目代码到数组/列表
3. 可以选择从列表框中选择项目并从阵列中删除所选项目

我已经将列表框分解了，这很简单：

Pick = "Projects"
    Me.ListBox1.List = Arr(Pick)

引用操作员将在新项目代码中添加的文本框很简单。

但是，即时更换阵列，现在就是我被吸烟的地方。

我看到this on the Chip Pearson Site - Programming the VBA Editor 但我不确定如何解决这个问题。

有什么建议吗？ 谢谢！