n = 15107096
k = n Mod 10000
T = n Mod 100
R = T
L = 1 / k
C = 1 / n
omega = k
Amplitude_of_voltage = T
phase_of_current = Atn((L * omega - 1 / (C * omega)) / R)
Z = Sqr(R ^ 2 + (L * omega - 1 / (C * omega)) ^ 2)
amplitude_of_current = Amplitude_of_voltage / Z
MsgBox amplitude_of_current
MsgBox phase_of_current