Private Sub Form_Load()
n = 15108097
k = n Mod 10000
T = n Mod 100
'
A = k
B = 1
C = 0.0006 * k
'
A = 0.002 * k
B = -0.008 * k
C = -0.0009 * k
'
'
A = -0.00004 * k
B = 0.00002 * k
C = k
'
'
A = 0.002 * k
B = 0.003 * k
C = -0.0009 * T * k
'
D = B ^ 2 - 4 * A * C
MsgBox D
End Sub