Solución 3.7 Calcular el porcentaje

Código de la función:

Function CalculoPorcentaje(ByVal dblN1 As Double, ByVal dblN2 As _  
Double) As Double  
  CalculoPorcentaje = dblN1 / dblN2 * 100  
End Function

Código del procedimiento:

Sub LlamadaPorcentaje()   ...