Information
The topic you requested is included in another documentation set. For convenience, it's displayed below. Choose Switch to see the topic in its original location.

How to: Create a Procedure 

You enclose a procedure between a starting declaration statement (Sub or Function) and an ending declaration statement (End Sub or End Function). All the procedure's code lies between these statements.

A procedure cannot contain another procedure, so its starting and ending statements must be outside any other procedure.

If you have code that performs the same task in different places, you can write the task once as a procedure and then call it from different places in your code.

To create a procedure that does not return a value

  1. Outside any other procedure, use a Sub statement, followed by an End Sub statement.

  2. In the Sub statement, follow the Sub keyword with the name of the procedure, then the parameter list in parentheses.

  3. Place the procedure's code statements between the Sub and End Sub statements.

To create a procedure that returns a value

  1. Outside any other procedure, use a Function statement, followed by an End Function statement.

  2. In the Function statement, follow the Function keyword with the name of the procedure, then the parameter list in parentheses, and then an As clause specifying the data type of the return value.

  3. Place the procedure's code statements between the Function and End Function statements.

  4. Use a Return statement to return the value to the calling code.

To connect your new procedure with the old, repetitive blocks of code

  1. Make sure you define the new procedure in a place where the old code has access to it.

  2. In your old, repetitive code block, replace the statements that perform the repetitive task with a single statement that calls the Sub or Function procedure.

  3. If your procedure is a Function that returns a value, ensure that your calling statement performs an action with the returned value, such as storing it in a variable, or else the value will be lost.

Example

The following Function procedure calculates the longest side, or hypotenuse, of a right triangle, given the values for the other two sides.

Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

See Also

Was this page helpful?
(1500 characters remaining)
Thank you for your feedback

Community Additions

Show:
© 2014 Microsoft