RVB LinCong

Public Function LinCong()
Dim OT, ConstB, ConstM
ConstB = 4.1
ConstM = 100
OT = ((RValue*ConstB)+1) Mod ConstM
RValue = OT
LinCong = OT
End Function