怎么穷举通配符以便查找替换

一、想法：使用查找替换时，有时为选择合适的通配符动脑筋，为此我想做个VBA穷举出2个或2个以上字符串的共同通配符，以供直接复制选用。
二、实践：运行以下代码，找出“我们”“他们”的共同通配符。（仅为说明，只采用两个样本）
三、问题：1、实验中我的数组元素只有7个，程序运行次数为7的7次方，勉强还能通过。我欲把数字、[](){}@等全部放进去，运行次数就过亿了，费时太长。怎么解决呢？
          2、找出的代码有很多“****”，都是重复的，在考虑括号嵌套等的同时，如何过滤掉？

Sub 关于通配符的思考()
Dim Arr(), zwd, zwd2, daima
zwd = "我们"   '仅为两个字符的示例
zwd2 = "他们"
If Mid(zwd, 1, 1) = Mid(zwd2, 1, 1) Then
biaoji = Mid(zwd, 1, 1)
Else
biaoji = ""
End If
If Mid(zwd, 2, 1) = Mid(zwd2, 2, 1) Then
biaoji2 = Mid(zwd, 2, 1)
  Else
biaoji2 = ""
End If
Arr = Array("?", "@", "*", "(", ")", biaoji, biaoji2)
For a = 0 To 6
For b = 0 To 6
For c = 0 To 6
For d = 0 To 6
For e = 0 To 6
For f = 0 To 6
For g = 0 To 6
If (zwd Like biaoji & Arr(a) & Arr(b) & Arr(c) & Arr(d) & Arr(e) & Arr(f) & Arr(g) & biaoji2) = True Then
daima = daima & biaoji & Arr(a) & Arr(b) & Arr(c) & Arr(d) & Arr(e) & Arr(f) & Arr(g) & biaoji2 & Chr(13)
End If
Next
Next
Next
Next
Next
Next
Next
MsgBox daima
End Sub

楼主应该学习一下《正则》，相信会有新发现

多谢指点，多谢指点