Como: Criar um procedimento que retorna um valor

Você usa um procedimento Function para retorna um valor para o código de chamada.

Fora de qualquer outro procedimento, utilize uma declaração Function seguida de uma declaração End Function.
Na declaração Function, siga a palava-chave Function do nome do procedimento, e, em seguida, da lista de parâmetros em parênteses.
Siga os parênteses com uma cláusula As para especificar o tipo de dado o valor retornado.
Posicione as declarações de código do procedimento entre as declarações Function e End Function.
Use uma declaração Return para retornar o valor para o código de chamada.

O procedimento Function a seguir calcula o maior lado, ou hipotenusa, de um triângulo retângulo, dados os valores dos outros dois lados.
```
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
```
O exemplo seguinte mostra uma chamada típica para hypotenuse.
```
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
```

Consulte também