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

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
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

строку 5,6,7 нужно в Class модуль сделать, сам многое перепробывал, только учусь

Решение задачи: «Проверка InputBox с использованием Property метода»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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