VBA求代码,在 9 十个不同数字中取3个不同数的升序组合

VBA求代码,在 9 十个不同数字中取3个不同数的升序组合
比如 9不同 数字中任意取四个数字在A1输入0378,则在B1~E1单元格中生成037、038、 078、 378共四组不重复的升序组合数值.
比如 9不同 数字中任意取五个数字在A1输入03789,则在B1~K1单元格中生成037、038、039、078、079、089、378、379、389、789共十组不重复的升序组合数值.
类推如果在A1输入0123456789,则生成120组不重复的升序组合数值.
注意,所生成的数值要文本格式（很重要）.
求完整代码,