VBA/Excel/Access/Word/Language Basics/Optional Arguments
Using Optional Arguments
<source lang="vb">
Function Avg(num1, num2, Optional num3)
Dim totalNums As Integer totalNums = 3 If IsMissing(num3) Then num3 = 0 totalNums = totalNums - 1 End If Avg = (num1 + num2 + num3) / totalNums
End Function Sub avgSub()
MsgBox Avg(2, 3) MsgBox Avg(2, 3, 5)
End Sub
</source>