访问VBA选项组编码

有没有办法更有效地编写选项组代码（像这样）

Select Case frmCity.Value
        Case 1
            Me.frmCustomersSub.Form.Filter = "City = 'Brazil'"
            Me.frmCustomersSub.Form.FilterOn = True
        Case 2
            Me.frmCustomersSub.Form.Filter = "City = 'France'"
            Me.frmCustomersSub.Form.FilterOn = True
        Case 3
            Me.frmCustomersSub.Form.Filter = "City = 'Mexico'"
            Me.frmCustomersSub.Form.FilterOn = True
        Case 4
            Me.frmCustomersSub.Form.Filter = "City = 'UK'"
            Me.frmCustomersSub.Form.FilterOn = True
 End Select

这有助于：

Dim cityName As String

If frmCity.Value > 0 And frmCity.Value <= 4 Then
    cityName = Choose(frmCity.Value, "Brazil", "France", "Mexico", "UK")

    Me.frmCustomersSub.Form.Filter = "City = '" & cityName & "'"
    Me.frmCustomersSub.Form.FilterOn = True
End If

Dim cityName作为字符串
如果frmCity.Value>0且frmCity.Value