[specci48]

I think he is looking for something like this:

Sub Globals
End Sub

Sub App_Start
    ' Create a Form1 and add a ListBox1
    FillListBox("1234567", "")
    Form1.Show
    Msgbox(ListBox1.Count)	
End Sub

Sub FillListBox(value, combi)
    If value = "" Then
        ListBox1.Add(combi)
    Else
        For i = 0 To StrLength(value) - 1
            FillListBox(StrRemove(value, i, 1), combi & SubString(value, i ,1))		
        Next
    End If
End Sub

specci48