Sub CallProcO Dim I, J As integer Dim K As Single

: i—i—r

Cali RecProc(I, J, K)

End Sub *

Calllng procedurę

Sub RecProc(I As Integer, J As Integer, K As Single)

'Works with the passed arguments 'as well as its own local variables.

'Any module or global variables 'may be used also.

End Sub*