Imports System

Public Class Test
	Public Shared Sub Main()
		CalculatePower(5, 3) ' 125 '
		CalculatePower(8, 4) ' 4096 '
		CalculatePower(6, 2) ' 36 '
	End Sub
	
	Private Shared Function CalculatePower(Number As Integer, PowerOf As Integer) As Long
    	Dim Result As Long = Number
    	For i As Integer = PowerOf To 2 Step -1
        	Result = (Result * Number)
    	Next
    	Console.WriteLine(Result.ToString())
    	Return Result
	End Function
End Class