Cómo: Crear un procedimiento que devuelva un valor (Visual Basic)

Use un Function procedimiento para devolver un valor al código de llamada.

Fuera de cualquier otro procedimiento, use una Function declaración, seguida de una End Function declaración.
En la Function instrucción , siga la Function palabra clave con el nombre del procedimiento y, a continuación, la lista de parámetros entre paréntesis.
Siga los paréntesis con una As cláusula para especificar el tipo de datos del valor devuelto.
Coloque las instrucciones de código del procedimiento entre las instrucciones Function y End Function.
Use una Return instrucción para devolver el valor al código de llamada.

El procedimiento Function siguiente calcula el lado más largo, o hipotenusa, de un triángulo rectángulo, dados los valores de los otros dos lados.
```
Function Hypotenuse(side1 As Double, side2 As Double) As Double
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
En el ejemplo siguiente se muestra una llamada típica a hypotenuse.
```
Dim testLength, testHypotenuse As Double
testHypotenuse = Hypotenuse(testLength, 10.7)
```

Consulte también