Solución 3.3 Comparar números y buscar el más pequeño de ellos

Código de la función:

Function EncontrarPequeño(ByVal dblN1 As Double, ByVal dblN2 As Double) As Double 
    If dblN1 < dblN2 Then 
        EncontrarPequeño = dblN1 
    Else 
        EncontrarPequeño = dblN2 
    End If 
End Function

Código del procedimiento: ...