s = 19107012
L = s Mod 10
T = s Mod 100
k = s Mod 10000
omega = T
x = k
v = s
A1 = omega * (T - x / v)
A2 = L + omega * (T - x / v)
oscillatingvalue = 2 * Sin((A1 + A2) / 2) * Cos((A1 - A2) / 2)
MsgBox oscillatingvalue