Private Sub Form_Load()
n = 15108097
k = n Mod 10000
T = n Mod 100
'
a = k
a = 2 * T
R = Sqr(1 - (1 - 1 / a) ^ 2)
iR = R ^ (-1)
MsgBox R
MsgBox iR
End Sub