将列表框选择存储为变量

Question

我正在尝试将选择从两个单独的列表框中存储为作为工作簿引用的变量。我使用以下内容遍历每个列表框并确定选择。

fileOne设置为变量：

Dim fileOne as Workbook

错误是运行时错误＆＃39; 13＆＃39;：在工作簿名称（listBx1）从原始帖子传递给fileOne变量中的Workbooks对象的行中键入不匹配。 listBx1和listBx2都在CommandButton1_Click（）public sub和代码中声明，它们被称为工作簿名称。

Public Sub CommandButton1_Click()
Dim Item1 As Long, Item2 As Long

For Item1 = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(Item1) = True Then
        listBx1 = ListBox1.Text
    End If
Next

For Item2 = 0 To ListBox1.ListCount - 1
    If ListBox2.Selected(Item2) = True Then
        listBx2 = ListBox2.Text
    End If
Next

End Sub

带错误的代码只是将列表框中的文本设置为变量：

Set fileOne = Workbooks(listBx1)

我不确定在设置变量之前是否正在卸载userform，或者.Text不是列表框项目的正确对象。

如何将列表框中的选择存储为变量？