Drop down menu 如何区分在下拉菜单中选择的值

我有3个下拉列表。选择从“约会”或“结婚”开始。我正在尝试将文本输入“Address1”分配给“Dating 1:”（如果选中），或将不同的文本输入“Address2”（如果他们结婚2:）。如何查看字符串并获取其开头，并将正确的Address1或Address2输入应用于该选择

If (TCSelection.TCSDropDown1.List(0)) <> Empty Then

    Else
        TCSDropDown1.AddItem "Dating 1: Couple 1"
        TCSDropDown1.AddItem "Dating 1: Couple 2"
        TCSDropDown1.AddItem "Dating 1: Couple 3"
        TCSDropDown1.AddItem "Married 2: Couple 1"
        TCSDropDown1.AddItem "Married 2: Couple 2"
        TCSDropDown1.AddItem "Married 2: Couple 3"
End If
End Sub

If TCSelection.Address1Input.Text Or TCSelection.Address2Input.Text <> Empty Then
            Address = TCSelection.Address1Input.Text Or TCSelection.Address2Input.Text
            Set client = CreateObject("Couple.Address")

如果（TCSelection.TCSDropDown1.List（0））为空，则
其他的
TCSDropDown1.AddItem“约会1：夫妻1”
TCSDropDown1.AddItem“约会1：夫妻2”
TCSDropDown1.AddItem“约会1：情侣3”
TCSDropDown1.AddItem“已婚2：夫妇1”
TCSDropDown1.AddItem“已婚2：夫妇2”
TCSDropDown1.AddItem“已婚2：夫妇3”
如果结束
端接头
如果TCSelection.Address1Input.Text或TCSelection.Address2Input.Text为空，则
Address=TCSelection.Address1Input.Text或TCSelection.Address2Input.Text
设置client=CreateObject（“Couple.Address”）

社区有什么想法吗？我相信你已经问过这个问题了。是的，我删除了这篇文章，因为它不是直截了当的。即使是原版，也没有人知道是选择了“Dating1:”还是“Dating2:”。谢谢。社区里有什么想法吗？我相信你已经问过这个问题了。是的，我删除了这篇文章，因为它不是直截了当的。即使是原版，也没有人知道是选择了“Dating1:”还是“Dating2:”。非常感谢。