Const AlleZeichen = "01234"         ' können natürlich auch Variablen sein
Const Stellenzahl = 4
 
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)
  Next i
Else
  ' in tStr steht hier nun der gewünschte String zur Verfügung
End If
 
Sub Main
Iterate ("", 1)
End Sub