Solución 3.1 Dividir dos números

Sub Division()  
    Dim dblNumero1 As Double 
    Dim dblNumero2 As Double 
    Dim dblResultado As Double 
    On Error GoTo Salida_error 
    dblNumero1 ...