主题：按标点符号分割字符串

参考代码

'''
Dim str As String = "经济学类(含荷兰格罗宁根大学双学位项目)(含国家公派留学计划及德国哥廷根大学、慕尼黑大学、法国巴黎政治大学等校免学费交流项目；含经济学、国际经济与贸易(国际经济学方向)、金融学、财政学，保险学5个专业；部分专业课程英语授课)"
Dim ary = str.split(new Char(){"(", ")", "、", "；"})
For Each s As String In ary
    msgbox(s)
Next