'Benötigt wird: 1 Listbox, 1 Commandbutton
Option Explicit
 
Private Sub Command1_Click()
 
Dim i&, j&, Eing$, Ausg$
 
Eing = "abcd"
List1.Clear
For i = 0 To 2 ^ (Len(Eing) - 1) - 1
  Ausg = ""
  For j = 0 To Len(Eing) - 1
    Ausg = Ausg & Mid(Eing, j + 1, 1) & IIf(i And 2 ^ j, " ", "")
  Next j
  List1.AddItem Ausg
Next i
 
End Sub