Cómo: Crear un procedimiento que devuelve un valor

Actualización: noviembre 2007

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

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

El siguiente procedimiento Function calcula la hipotenusa de un triángulo rectángulo a partir de los valores de los catetos.
```
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
El ejemplo siguiente muestra una llamada típica a hypotenuse.
```
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
```

Vea también