Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба

Public Sub РеброКуба()
Dim a
a = InputBox("Введите ребро куба")
If IsNumeric(a) = False Or Val(a) < 0 Then MsgBox ("Введены некорректные данные!Выход"): Exit Sub
MsgBox "Площадь ребра = " & a ^ 2 & Chr(13) & "Площадь полной поверхности = " & 6 * (a ^ 2) & Chr(13) & "Объём куба = " & a ^ 3
End Sub
 
 
Public Sub ПодобныеТреугольники()
Dim a1 As Single, b1 As Single, c1 As Single, a2 As Single, b2 As Single, c2 As Single
a1 = InputBox("Введите первый катет первого треугольника")
b1 = InputBox("Введите второй катет первого треугольника")
c1 = Sqr(a1 ^ 2 + b1 ^ 2)
a2 = InputBox("Введите первый катет второго треугольника")
b2 = InputBox("Введите второй катет второго треугольника")
c2 = Sqr(a2 ^ 2 + b2 ^ 2)
If a1 / c1 = a2 / c2 Then
MsgBox ("треугольники подобны")
Else
MsgBox ("Треугольники не являются подобными")
End If
End Sub

Public Sub ПодобныеТреугольники()
Dim a1 As Single, b1 As Single, c1 As Single, a2 As Single, b2 As Single, c2 As Single
a1 = InputBox("Введите первый катет первого треугольника")
b1 = InputBox("Введите второй катет первого треугольника")
c1 = Sqr(a1 ^ 2 + b1 ^ 2)
a2 = InputBox("Введите первый катет второго треугольника")
b2 = InputBox("Введите второй катет второго треугольника")
c2 = Sqr(a2 ^ 2 + b2 ^ 2)
Select Case a1 / c1 = a2 / c2
       Case True
            MsgBox "треугольники подобны"
       Case False
            MsgBox "Треугольники не являются подобными"
End Select
 
End Sub
 
 
Public Sub РеброКуба()
Dim a
a = InputBox("Введите ребро куба")
Select Case IsNumeric(a) = False Or Val(a) < 0
       Case True
            MsgBox ("Введены некорректные данные!Выход")
       Case False
            MsgBox "Площадь ребра = " & a ^ 2 & Chr(13) & "Площадь полной поверхности = " _
            & 6 * (a ^ 2) & Chr(13) & "Объём куба = " & a ^ 3
End Select
End Sub

Public Sub РеброКуба()
Dim a
a = InputBox("Введите ребро куба")
MsgBox "Площадь ребра = " & a ^ 2 & Chr(13) & "Площадь полной поверхности = " & 6 * (a ^ 2) & Chr(13) & "Объём куба = " & a ^ 3
End Sub