I have encountered overflow error 6 with this code in VB 6:

step9 = Hex((CLng("&H" & "e753") * clng("&H" & "f010"))Mod (2^16+1))
cipher=step9

Help please!