n = 15108097
k = n Mod 10000
T = n Mod 100
amplitude4emf = T
frequency4emf = k
R = T
C = 1 / k
L = 1 / n
Z = Sqr(R ^ 2 + (frequency4emf * L - 1 / (frequency4emf * C)) ^ 2)
amplitude4current = amplitude4emf / Z
phase4current = -Atn((amplitude4emf * L - 1 / (amplitude4emf * C)) / R)
MsgBox amplitude4current
MsgBox phase4current