'Globale Variablen:
Dim strAuswahl As String
 
Private Sub Command1_Click()
strAuswahl = "ABC" 'laut Benutzereingabe
KombinationenErmitteln "", 1
End Sub
 
Private Sub KombinationenErmitteln(strRumpf As String, intStart As Integer)
Dim i As Integer
Dim strRumpfNeu As String
 
For i = intStart To Len(strAuswahl)
    strRumpfNeu = strRumpf & Mid(strAuswahl, i, 1)
    MsgBox strRumpfNeu
    KombinationenErmitteln strRumpfNeu, i + 1
Next
End Sub