Dim i As Long
  Dim u As Long
  Dim sChar As String
 
  sChar = ""
  For i = 1 To 4
    For u = 1 To 26
      List1.AddItem sChar & Chr$(96 + u)
    Next u
    sChar = sChar & Chr$(96 + i)
  Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de