Solución 4.7 Hacer obligatoria la introducción de un dato y controlar la salida

Sub EntradaObligatoria()  
    Const dblmpi As Double = 25.4 
    Dim dblPulgada As Variant 
    Dim dblMm As Double 
    Dim dblConversion As Double 
    Dim intEleccion As Integer 
    intEleccion = MsgBox("¿Quiere comenzar las conversiones?", _ 
    vbYesNo, "Conversión de Pulgadas ...