---

Private Sub CommandButton1_Click()
    Dim diskPrice As Integer
    Dim i As Integer
    Dim cost As Integer
    Dim outputText As String
    
    ' Стоимость одного диска
    diskPrice = 5
    
    ' Заголовок таблицы
    outputText = "Количество дисков | Стоимость" & vbCrLf & "--------------------------------------------" & vbCrLf
    
    ' Цикл для расчета стоимости от 2 до 10 дисков
    For i = 2 To 10
        cost = i * diskPrice
        outputText = outputText & "Дисков: " & i & vbTab & vbTab & " -  " & cost & " руб." & vbCrLf
    Next i
    
    ' Вывод таблицы на экран в виде сообщения
    MsgBox outputText, vbInformation, "Таблица стоимости"
    
    ' Если на форме есть текстовое поле TextBox1, можно вывести в него, раскомментировав строку ниже:
    ' TextBox1.Text = outputText