VBA サンプルコード プロシージャの呼び出し方

'メインプロシージャ

Sub test_sub()

    Dim a as Long

    Dim b as Long

    Dim c as Long

    b = 10

    c = 5

    a = test_calc(b,c)

    MsgBox(a)

End Sub

'計算するプロシージャ

Function test_calc(ByVal d as Long, ByVal e as Long) as Long

    test_calc = d * e

End Function

引数のByValはByRefと書くこともあります。詳しくは下記にて解説。