---

Private Sub CommandButton1_Click()
    Dim rate As Double
    Dim usd As Integer
    Dim rubles As Double
    Dim outputText As String
    Dim inputVal As String
    
    ' Очищаем текстовое поле перед выводом
    TextBox1.Text = ""
    
    ' Запрос курса доллара у пользователя с клавиатуры
    inputVal = InputBox("Введите текущий курс доллара США к рублю (например, 92,5):", "Ввод курса валюты")
    
    ' Проверка: ввел ли пользователь число и не нажал ли кнопку отмены
    If IsNumeric(inputVal) Then
        rate = CDbl(inputVal) ' Преобразуем введенный текст в дробное число
        
        ' Формируем шапку таблицы
        outputText = "Доллары ($)" & vbTab & "Рубли (руб.)" & vbCrLf & _
                     "----------------------------------------" & vbCrLf
        
        ' Цикл от 1 до 20 долларов
        For usd = 1 To 20
            rubles = usd * rate ' Вычисляем сумму в рублях
            
            ' Добавляем строку в общую переменную (округляем рубли до 2 знаков после запятой)
            outputText = outputText & usd & " USD" & vbTab & " -> " & Format(rubles, "0.00") & " руб." & vbCrLf
        Next usd
        
        ' Выводим всю таблицу в текстовое поле TextBox1
        TextBox1.Text = outputText
    Else
        ' Если ввели не число или нажали Отмена
        MsgBox "Ошибка! Введено некорректное значение курса доллара.", vbCritical, "Ошибка ввода"
    End If