Pust - nedanstående 'knåp' lyckas inte för mig. Jag behöver kunna generera strängar för 'hierarkisk' etikettering [se nedan]. De kommer slutligen att hamna som namn på foldrar, men den omedelbara uppgiften är bara att generera dem -

ex. på tre 'nivåer':

|A|a|1| - dvs:

Aa1
Aa2
...
AaN
...
Ab1
...
AbN
...
ZzN

etc.

Användaren anger nivåer och format och börjar med 'toppnivån' (A, alfabetisk ordning), så 'undernivåerna' (a, alfabetisk och N, numerisk), etc. Algoritmen skall tillåta N nivåer - inte 'oändligt', antalet kan alltid fångas upp och bestämmas, men som en dynamisk variabel.

Jag misstänker att den som kan generalisera detta kommer att lära mig mycket annat på kuppen, eftersom problemet har implikationer för så mer än stränghantering. /MVH Hansi

Edit 2/10

Hej
Efter att ha sovit på saken så blev det så här

Private Sub Command1_Click()
Dim N As Long, versal As Long,gemen As Long, i As Long
N = 10 ' N användarens input
For versal = 65 To 90
For gemen = 97 To 122
For i = 1 To N
List1.AddItem Chr$(versal) & Chr$(gemen) & CStr(i)
Next 'i
Next 'gemen
Next 'versal
End Sub

mvh
Sven