Найти двузначное число такое, что куб суммы его цифр равен квадрату самого числа - VB

Function task() As integer
  For i%=1 to 9
       For j%=0 to 9
            if (i%+j%)^3 = (10*i%+j%)^2 then
               task=(10*i%+j%)
               Exit function
            End if
       Next j%
    Next i% 
End Function
 
Sub main
      MsgBox Cstr(Task())
End sub