---

Private Sub OptionButton1_Click()
    ' Процессор
    ListBox1.RowSource = "Процессор!A1:A3"
End Sub

Private Sub OptionButton2_Click()
    ' Винчестер
    ListBox1.RowSource = "Винчестер!A1:A3"
End Sub

Private Sub OptionButton3_Click()
    ' Монитор
    ListBox1.RowSource = "Монитор!A1:A2"
End Sub

Private Sub CommandButton1_Click()
    ' Кнопка Количество - показывает стоимость
    If ListBox1.ListIndex = -1 Then
        MsgBox "Сначала выберите товар из списка"
        Exit Sub
    End If
    
    Dim товар As String
    Dim цена As Variant
    Dim активныйЛист As String
    
    товар = ListBox1.Value
    
    ' Определяем, какой лист активен по выбранному OptionButton
    If OptionButton1.Value = True Then
        активныйЛист = "Процессор"
    ElseIf OptionButton2.Value = True Then
        активныйЛист = "Винчестер"
    ElseIf OptionButton3.Value = True Then
        активныйЛист = "Монитор"
    Else
        MsgBox "Выберите категорию товара"
        Exit Sub
    End If
    
    ' Ищем цену на соответствующем листе
    цена = Application.WorksheetFunction.VLookup(товар, Sheets(активныйЛист).Range("A:B"), 2, False)
    
    ' Выводим стоимость
    TextBox1.Value = цена & " руб."
End Sub