List of possible combinations for x numbers.

Sub App_Start
    Msgbox(Factorial(7))
End Sub

Sub Factorial(n)
    f = 1
    For i = 2 To n
        f = f * i
    Next
    Return f
End Sub

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