Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел

Private Sub Picture1_Click()
Sub Zadanie2110767(a, b) ' Удалить. 
MsgBox "среднее арифметическое кубов = " & 0.5 * (a ^ 3 + b ^ 3) 'Вы приступили к расчету средне арифметического не 
'присвоив переменным a и b значений
MsgBox "среднее геометрическое модулей = " & Sqr(Abs(a * b))
End Sub

Private Sub Command1_Click()
Dim a As Double 'объявляем переменные
Dim b As Double
a = CDbl(Text1.Text) 'Присваиваем переменным введенные значения
b = CDbl(Text2.Text)
If Option1(0).Value = True Then 'Проверяем, что выбрал пользователь расчет средне арифметического или средне геометрического 
        MsgBox "среднее арифметическое кубов = " & 0.5 * (a ^ 3 + b ^ 3)
ElseIf Option1(1).Value = True Then
        MsgBox "среднее геометрическое модулей = " & Sqr(Abs(a * b))
Else
        MsgBox "ошибка, выберите что расчитывать среднее арифметическое кубов или среднее геометрическое модулей"
End If
End Sub

Private Function okrug(x As Single) As Single
If Check1.Value = 1 Then
x = Round(x, 2)
End If
okrug = x
End Function