[RESOLVED] loops for less times

[angelica]

Hey,

The code below only loops for 3 times. I am assuming it should loop for six times right? Can someone tell me why please?

 Private Sub RandomGenerator1()
        Dim AscChr As String, ChrAsc As String
        Dim counter As Integer = 0
        txtRandom1.Text = ""
        For counter = 0 To 5

            Randomize()
            AscChr = Abs(Int(64 - 122) * Rnd() - 64)
            ChrAsc = Chr(AscChr)
            txtRandom1.Text += String.Format(ChrAsc)
            counter += 1
        Next
    End Sub