Como: Criar um procedimento
Você coloca um procedimento entre uma declaração inicial (Sub ou Function) e uma declaração final (End Sub ou End Function).Todo o código do procedimento fica entre essas duas declarações.
Um procedimento não pode conter outro procedimento, então suas declarações inicial e final devem ficar fora de qualquer outro procedimento.
Se você tem código que executa a mesma tarefa em pontos diferentes, você pode escrever a tarefa uma única vez como um procedimento e então chamá-lo de diferentes pontos do seu código.
Criar um procedimento que não retorna um valor.
Fora de qualquer outro procedimento, utilize uma declaração Sub seguida de uma declaração End Sub.
Na declaração Sub, siga a palava-chave Sub do nome do procedimento, e, em seguida, da lista de parâmetros em parênteses.
Posicione as declarações de código do procedimento entre as declarações Sub e End Sub.
Para criar um crocedimento que retorna um valor
Fora de qualquer outro procedimento, utilize uma declaração Function seguida de uma declaração End Function.
Na declaração Function, depois da palavra-chave Function coloque o nome do procedimento, a lista de parâmetros entre parênteses, e finalmente uma cláusula As especificando o tipo de dados do valor de retorno.
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.
Para conectar seu novo procedimento com os blocos antigos e repetitivos de código
Garanta que você define o novo procedimento num lugar onde o código antigo tem acesso a ele.
No seu bloco de código repetitivo antigo, substitua as declarações que executam a tarefa repetitiva com uma declaração única que chama o procedimento Sub ou Function.
Se seu procedimento é uma Function que retorna um valor, garanta que sua declaração de chamada executa uma ação com o valor retornado, como armazená-lo numa variável, ou então seu valor será perdido.
Exemplo
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
Consulte também
Tarefas
Como: Dividir grandes partes do código em partes menores
Conceitos
Parâmetros do procedimento e argumentos