Выяснить, можно ли представить n в виде произведения трех последовательных натуральных чисел - VB

Function is3p(n As Integer) As Boolean
         k% = n ^ (1 / 3)
         For i% = k% - 3 To k% + 3
             If i% * (i% + 1) * (i% + 2) = n Then
                is3p = True
                Exit Function
             End If
         Next i%
         is3p = False
End Function