Generating 25 Alphanumeric Keys With Conditions

I have been programming an activation type of security protection for my software but I ran into problems when I try to generate an alphanumeric key with conditions. I cant seem to be able to make the keys to be valid with the condition. Basically I can get the 25 keys but all of them seem to be returning 1 (ones) instead of 0(zero which what i want.

Code:
generate the keys
Public Function GenerateCode() As Object
Dim IntRnd As Object
Dim IntStep As Object
Dim StrName As Object
[Code] .....

The damn thing keeps returning 1 instead of 0. I do know I can simply change to 1 and be off the issue. but if is that easy to generate 1 then isn't it easy just to break it. The whole thing hangs when I generate the code? If I loop it, its able to get a 0 but I cant take the key that's in the loop??