Just pass a and b to this function. This function will return the answer,
intAns = fnResult(2,3)
Function fnResult(Byval a as integer, Byval b as integer) as integer
Dim intAns as integer = 1
For i as integer=0 to b-1
intAns = intAns * a
Next
return intAns
End Function