Dim Auswahl As String
 
Public Sub Kombinationen(Vorgabe As String)
Dim Zeichen As String
If Len(Vorgabe) = Len(Auswahl) Then
    List1.AddItem GewLaenge
Else
    For i = 1 To Len(Auswahl)
        Zeichen = Mid(Auswahl, i, 1)
        If InStr(Vorgabe, Zeichen) = 0 Then
            Kombinationen(Vorgabe & Zeichen)
        End If
    Next
End If
End Sub

Private Sub Command1_Click()
Auswahl = "ABCD"
Kombinationen("")
End Sub