Índice

Solución 1.9 Utilizar una función

Sub BuscarCuadrado()  
  Dim dblNumero As Double  
  dblNumero = InputBox("Introduzca ...