n = 15108097 k = n Mod 10000 D = k * Sin(n * k + k / 2) MsgBox D