VBA プロシージャ Fnuction

Sub Sampletax()
Dim i As Long
For i = 2 To 7
Cells(i, 2).Value = Tax(Cells(i, 1).Value)
Next
End Sub

'下で定義したFunction Taxを上のSubプロシージャで呼び出す

Function Tax(Num As Long) As Long
Tax = Num * 1.08
End Function