Public Function Power (intNumber As Integer, Optional intPower As Variant) As Long
If IsMissing(intPower) Then
Power = intNumber ^ 2
Else
Power = intNumber ^ intPower
End If
End Sub
Public Function Power (intNumber As Integer, Optional intPower As Integer = 2) As Long
Power = intNumber ^ intPower
End Sub