Solución 4.1 Comprobar que se introduce un número

1. Ejercicio 1

Sub ControlEntrada()  
    Dim varTestEntrada As Variant 
    Dim dblNumero As Double 
    MsgBox "Anulación de la operación" 
    varTestEntrada = InputBox(prompt:="Introduzca un número", _ 
    Title:="Multiplicación de un número por sí mismo") 
    If varTestEntrada <> "" Then 
   ...