Syntax 

[ | Private | Public ] _

Sub name[([param[, ...]])]

    statements

End Sub


Group 

Declaration 


Description 

User defined subroutine. The subroutine defines a set of statements to be executed when it is called. The values of the calling arglist are assigned to the params. A subroutine does not return a result.


Access 

Public is assumed if access is omitted.


See Also 

Declare, Function, Property


Example

Sub IdentityArray(A()) ' A() is an array of numbers

    For I = LBound(A) To UBound(A)

        A(I) = I

    Next I

End Sub

 

Sub CalcArray(A(), B, C) ' A() is an array of numbers

    For I = LBound(A) To UBound(A)

        A(I) = A(I)*B+C

    Next I

End Sub

 

Sub ShowArray(A()) ' A() is an array of numbers

    For I = LBound(A) To UBound(A)

        Debug.Print "("; I; ")="; A(I)

    Next I

End Sub

 

Sub Main

    Dim X(1 To 4)

    IdentityArray X()   ' X(1)=1, X(2)=2, X(3)=3, X(4)=4

    CalcArray X(), 2, 3 ' X(1)=5, X(2)=7, X(3)=9, X(4)=11

    ShowArray X()       ' print X(1), X(2), X(3), X(4)

End Sub