VB字符串的自由组合的问题

123**456，组合出12301456 12302456 ...，其中星号个数是不确定的，所以没办法循环，请问具体怎么写呢？

 用递归好了
sub foo(string s)
if instr(s, "*") = -1 then msgbox s:exit sub
for i = 0 to 9
foo((mid(s, 1, instr(s, "*")) & i & mid(s, instr(s, "*") + 1))
next
end sub

你想要实现什么效果，问题有点含糊啊