n = 15107096 k = n Mod 10000 T = n Mod 100 fi = (1 + Sqr(5)) / 2 FnT = (fi ^ T - (-fi) ^ (-T)) / Sqr(5) MsgBox FnT