Как записать код?

[Вадим12091965]

Всем привет. Подскажите как записать код:

If TreeView1.SelectedItem = "500"  и включен переключатель 1 Then TextBox18.Text = Лист9.[AF5].Value 
If TreeView1.SelectedItem = "500"  и включен переключатель 2 Then TextBox18.Text = Лист9.[AF6].Value

Спасибо.

[SaLoKiN]

переключатель это что?

[Hugo121]

Можно как-то так:

    If TreeView1.SelectedItem = "500" Then
        Select Case True
            Case "включен переключатель 1": TextBox18.Text = Лист9.[AF5].Value
            Case "включен переключатель 2": TextBox18.Text = Лист9.[AF6].Value
        End Select
    End If

[Вадим12091965]

Hugo121. Спасибо. Работает.