Ok how would i achieve this. I have a current method but its very long.

Code:
Public Sub Fourletters

str = Mid(Word, 1) & "_" & Mid(Word, 2) & "_" & Mid(Word, 3)& "_" & Mid(Word, 4)

list1.additem str
so i have this 16 times for each length of word. Then i have to do

Code:
If Len(Word) = 2 Then Call TwoLetters
If Len(Word) = 3 Then Call ThreeLetters
im sure there is a quicker method.

Thanks in advance.