Function power(n As Integer, p As Integer = 2) As Double
	Return n ^ p
End Function

Print power(2)       ' muestra 4
Print power(2, 3)    ' muestra 8
Sleep