将乱序字串，判断正确词语
例：

字串：
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