Загрузка данных

Private Sub UserForm_Activate()
    Dim цена As Variant
    цена = Application.VLookup(выбранныйТовар, Sheets("Процессор").Range("A:B"), 2, False)
    If IsError(цена) Then цена = Application.VLookup(выбранныйТовар, Sheets("Винчестер").Range("A:B"), 2, False)
    If IsError(цена) Then цена = Application.VLookup(выбранныйТовар, Sheets("Монитор").Range("A:B"), 2, False)
    
    TextBox1.Value = цена
    ListBox1.AddItem выбранныйТовар
End Sub