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