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

' код на VBScript 5

Sub Zadanie2110767(a,b)
    MsgBox "среднее арифметическое кубов = " & 0.5*(a^3+b^3)
    MsgBox "среднее геометрическое модулей = " & sqr(abs(a*b))
End Sub