将乱序字串，判断正确词语
例：
字串：
aaa="想思暮"
例句：
lj="他终于回到阔别多年、朝思暮想的故乡。"
如何，求得正确词是"朝思暮想"
写个函数pdzqc()
即：bbb=pdzqc(lj,aaa)
bbb得到"朝思暮想"
[解决办法]
四个字的时候就好办了！
Option Explicit
Private Sub Command1_Click()
Dim s, b As String
s = "暮朝他终于思回到阔别多年、朝思暮想的故乡。 "
Dim re As New RegExp '要引用Microsoft VbScript Regular expressions 5.5
Dim sh, h As Object
re.Global = True
re.Pattern = "[想思暮朝]"
Set sh = re.Execute(s)
b = ""
For Each h In sh
b = b & h
Next h
Dim i As Integer
For i = 1 To Len(b) - 3
If InStr(s, Mid(b, i, 4)) <> 0 Then
MsgBox Mid(s, InStr(s, Mid(b, i, 4)), 4)
Exit For
End If
Next
End Sub
