---

Private Sub CommandButton1_Click()
    Dim R As Double
    Dim h As Double
    Dim V As Double
    
    ' Считываем значения из ваших TextBox
    ' Предполагается, что TextBox1 - это Радиус, а TextBox2 - Высота
    If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
        R = CDbl(TextBox1.Value)
        h = CDbl(TextBox2.Value)
        
        ' Вычисление объема
        V = 3.14159265358979 * (R ^ 2) * h
        
        ' Вывод результата в MsgBox
        MsgBox "Объем цилиндра равен: " & Format(V, "0.00"), vbInformation, "Результат"
    Else
        MsgBox "Пожалуйста, введите корректные числа в оба поля!", vbCritical, "Ошибка"
    End If
End Sub