Const AlleZeichen = "01234"         ' können natürlich auch Variablen sein
Const Stellenzahl = 4
 
 
Private Sub Form_Load()
Iterate "", 1
End Sub
 
 
Function Iterate(ByVal tStr As String, ByVal actDeep As Integer) As String
Dim i As Integer
If actDeep <= Stellenzahl Then
  For i = 1 To Len(AlleZeichen)
    Iterate tStr, Mid$(AlleZeichen, i, 1)
    DoEvents
  Next i
Else
  List1.AddItem tStr ' in tStr steht hier nun der gewünschte String zur 
  ' Verfügung
End If
End Function