---

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 = ""
    Label1.Caption = ""
    
    ' Запрос курса
    inputVal = InputBox("Введите текущий курс доллара (например, 92,5):", "Ввод курса")
    
    If IsNumeric(inputVal) Then
        rate = CDbl(inputVal)
        
        ' Заголовок для текстового поля
        outputText = "USD" & vbTab & "RUB" & vbCrLf & "-------------------" & vbCrLf
        
        ' Цикл вычисления
        For usd = 1 To 20
            rubles = usd * rate
            ' Заполняем TextBox
            outputText = outputText & usd & " $" & vbTab & Format(rubles, "0.00") & " руб." & vbCrLf
        Next usd
        
        ' Вывод в элементы формы
        TextBox1.Text = outputText
        
        ' Вывод итоговой информации в Label1
        Label1.Caption = "Расчет произведен для 20 долларов по курсу: " & Format(rate, "0.00")
        
    Else
        MsgBox "Ошибка ввода!", vbCritical
    End If