---

Private Sub CommandButton1_Click()
    Dim pricePerDisk As Double
    Dim i As Integer
    Dim resultStr As String
    
    ' Проверяем, введено ли число в TextBox1
    If TextBox1.Text = "" Or Not IsNumeric(TextBox1.Text) Then
        MsgBox "Пожалуйста, введите корректную стоимость диска!", vbExclamation, "Ошибка ввода"
        Exit Sub
    End If
    
    ' Считываем стоимость одного диска
    pricePerDisk = CDbl(TextBox1.Text)
    
    ' Формируем шапку таблицы
    resultStr = "Кол-во" & vbTab & "Стоимость (руб.)" & vbCrLf
    resultStr = resultStr & "------------------------" & vbCrLf
    
    ' Используем цикл For...Next для создания таблицы от 1 до 10 дисков
    For i = 1 To 10
        resultStr = resultStr & i & " шт." & vbTab & (i * pricePerDisk) & " руб." & vbCrLf
    Next i
    
    ' Выводим итоговую таблицу в TextBox2
    TextBox2.Text = resultStr
End Sub