专家能帮我改一下代码吗

Question

想做一个按键命令Command1
p = Len(Text1.Text)
for i =1 to p
   for j=i +1 to p 
      for k=j +1 to p
         print i*100+j*10+k 
      next k 
   next j 
next i
我在文本框输入大于3为数的数字，然后他进行排列,可是他是按照1-p的方式排列的，不是按照所输入数字排列的，比如说在文本框输入了3456，他还是从1排列，并不是按照每位的数字排列的，这个我明白因为p是代表这个数有几位数字当然要从1的排序开始到4结束，而不是从数字的第一位数字开始，请高手帮忙给更改一下，要取3456每位数而不是取1234，p要求最多10位，而且所输入数字不能有重复，也就是最多为0-9，并且要把计算结果显示在listbox中，这个代码该如何改，谢谢 

Answer 1

这是一个数的排列问题，网上有很多这类代码你自已找一个吧。