The best I can come up with is this: Val(Mid$("00010203040506080910", Random(10) * 2, 2))