函數REFIND（str，re）
Dim Reg As New RegExp
帶Reg
。全局=真
。模式= re
集合匹配=。執行（字符串）
對於比賽中的每壹場比賽
y = y & amp““& amp比賽
然後
以…結尾
MsgBox y
REFIND = y
結束功能