Function Pow(number,power) newnumber=number If (power>1) For i=0 To power-2 newnumber = newnumber * number Next EndIf Return newnumber End Function