Functionプロシージャ例1

FunctionProcedure.bas

Sub MainSub()

  'Functionプロシージャの戻り値を、「A1」セルに代入
   Sheets("Sheet1").Cells(1, 1) = TestFunc(4, 8)
    
End Sub

Function TestFunc(a As Integer, b As Integer)
    
   Dim result As Integer
   result = a + b
    
   'Functionプロシージャ名に対して戻り値を代入
   TestFunc = result
    
End Function