s = 19107012
L = s Mod 10
T = s Mod 100
k = s Mod 10000

c = 3 * 10 ^ 8

lambdainvacuum = T * 10 ^ (-9)

frequencyinvacuum = c / lambdainvacuum
MsgBox frequencyinvacuum


velocityinglass = 2 * 10 ^ 8
lambdainglass = velocityinglass / frequencyinvacuum
MsgBox lambdainglass