Dim letra As String letra = "A" For i = 1 To 55 Text1.Text = Text1.Text & " " & letra letra = Chr(Asc(letra) + 1) If letra = "[" Then letra = "A" Next i