Randomize Timer

Dim as Integer a, b
Dim as String Temp

Open "Codes.txt" For Output as #1

For b = 1 to 50
    For a = 1 to 6
        If INT(RND * 2) = 0 then
            Temp += CHR(INT(RND * 26) + 65)
        Else
            Temp += CHR(INT(RND * 26) + 97)
        Endif
    Next a
    Print #1, "Codes(" & STR(b) & ") = " & CHR(34) & Temp & CHR(34)
    Temp = ""
Next b

Close #1

Sleep