从另一个UserForm ListBox

Question

目前我已经格式化了UserForm（可以在下面附图中看到），用户可以选择某些复选框标准，然后在2个列表框中来回添加和删除国家/地区（行来源='所有国家/地区验证） '！$ 4 $：ListBox1 $ 61 $。

选择他们的标准后，他们点击一个按钮（“提取数据”），它会突出显示“所选国家/地区”列表框中的所有字段（图像2 =单击按钮后）。

如果我在点击按钮后得到一些帮助/指导，ListBox 2中列出的国家/地区可能会出现在ListBox3的第一列中，这将是惊人的。最终目标是用户在UserForm中选择标准，并且将在ListBox3中返回有关用户所选国家/地区的信息。如果在更有效的消息框中返回此信息更容易。

以下代码返回msgbox中的选定国家/地区

Dim x As Integer
For x = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(x) = False Then
    ListBox2.Selected(x) = True
End If
Next
Dim Range1 As Range

Msg = ""
For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i) Then _
        Msg = Msg & ListBox2.List(i) & vbCrLf
Next i
MsgBox "You selected: " & vbCrLf & Msg
Unload Me

下面的代码，当合同收入，实际，Davey被选中时：

    If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = False Then
        If CheckBox4.Value = True And CheckBox5.Value = False Then
            If CheckBox6.Value = True And CheckBox7.Value = False Then