Проверка InputBox с использованием Property метода

Sub Cub()
Dim C As New Class1
Dim A As Variant
Dim B As Integer
A = InputBox("Введите число для возведения в куб")
If Not IsNumeric(A) Then
MsgBox ("Не верное значение")
Else
B = A * A * A
MsgBox "Число в кубе  = " & B
Set C = Nothing
End If
End Sub

B=A^3

Private Sub Command1_Click()
s = Timer
For i = 1 To 1000000
c = 10 ^ 3
Next
Print Timer - s
End Sub
Private Sub Command2_Click()
s = Timer
For i = 1 To 1000000
c = 10 * 10 * 10
Next
Print Timer - s
End Sub

Function Степень(ByVal Num#, ByVal arg#)
    Степень = 1: For arg = 1 To arg: Степень = Степень * Num: Next
End Function
 
Private Sub Form_Load()
    Debug.Print Степень(10, 3)
End Sub

Private Sub Command1_Click()
s = Timer
For i = 1 To 1000000
c = 10 ^ 3
Next
Print Timer - s
End Sub
Private Sub Command2_Click()
s = Timer
For i = 1 To 1000000
c = 10 * 10 * 10
Next
Print Timer - s
End Sub

c = 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2
c = c * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2

   c = 2& * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2

Function СтепеньScript(ByVal Num#, ByVal Arg#)
    Static Script As Object: Do While Script Is Nothing: Set Script = CreateObject("MSScriptControl.ScriptControl"): Exit Do: Loop: Script.Language = "VBScript"
    СтепеньScript = Script.eval(Mid$(Replace(Space(Arg), " ", "*" & Num), 2))
End Function
 
Private Sub Form_Load()
    Debug.Print СтепеньScript(10, 3)
End Sub