n = 15107098
k = n Mod 10000
T = n Mod 100
R = T
L = 1 / k
C = 1 / n
omega = k
pi = 4 * Atn(1)
voltage_amplitude = T
total_current_phase = -Atn((1 / (L * omega) - C * omega) / R)
Z = Sqr(R ^ 2 + (1 / (L * omega) - C * omega) ^ (-2))
total_current_amplitude = voltage_amplitude / Z
inductive_current_amplitude = voltage_amplitude / (Z * (1 - L * C * omega ^ 2))
inductive_current_phase = total_current_phase - pi / 2
capacitive_current_amplitude = voltage_amplitude / (Z * (1 / (L * C * omega ^ 2) - 1))
capacitive_current_phase = total_current_phase + pi / 2
MsgBox total_current_amplitude
MsgBox total_current_phase
MsgBox inductive_current_amplitude
MsgBox inductive_current_phase
MsgBox capacitive_current_amplitude
MsgBox capacitive_current_phase