Vbscript 将下拉列表中的选项读取到数组中

我正在尝试编写代码（在Macro Express Pro中）来读取下拉框中的所有选项，并将它们设置为以下格式的数组：

;option 1;option 2;option 3;option 4;option 5

到目前为止，我能够将其显示在

MsgBox

中（作为测试，我不希望消息框用于生产），但不能将它们附加到数组中。以下是我的工作内容（来自网站）：

---

创建一个动态数组并用选项填充，然后创建该数组：

ReDim arr(OptionChooser.Options.Length - 1)
For i = 0 To OptionChooser.Options.Length - 1
  arr(i) = OptionChooser.Options(i).Text
Next
str = Join(arr, ";")

MsgBox str

---

如何访问外部脚本之外的变量？我尝试过使用str并将str更改为有效，但只在MsgBox中获得结果，而不在外部脚本之外。@Michaelaudinerr：“外部”是什么意思？你想让那个值去哪里？对不起，我已经计算出来了。这个值太大了，所以没有复制到正确的位置。我会试着把它写在文本或其他东西上，然后从那里把它捡起来。

set OptionChooser = MyIE.Document.GetElementbyid("ctl00_cphContent_ddlWorkQueue")

For Each objOption in OptionChooser.Options
    Msgbox objOption.InnerText
Next

ReDim arr(OptionChooser.Options.Length - 1)
For i = 0 To OptionChooser.Options.Length - 1
  arr(i) = OptionChooser.Options(i).Text
Next
str = Join(arr, ";")

MsgBox str