excel VBA 提取指定字符串

If c.Value Like "*[语文,数学,英语,生物,地理,物理,化学,政史]*" Then
比如：查找“语文2”，或"q化学2
得到这个c.Value后，怎么提取出"语文,数学,英语,生物,地理,物理,化学,政史]" 之中的学科文本啊？
比如：得到c.Value的值为"q化学2提取出"化学"
1、左右两边都是*，不好确定位置啊
2、中间的学科是变化的（不一定是"化学"）。
答的好追加10分？

要是用正则，弄个分组（）加$1就可了，这个VBA不知有正则没有

可以用变通的方法，先取得c.value值，然后判断是否存在所列出的学科，用函数instr(1,c.value,"语文")判断是否＞＝0，如果大于等于0，那说明里面有语文这个学科，就先提取语文，然后再做循环，看存不存在其他学科，如果有再提取。

mid(源字串，起始位号x，提取长度m)；返回第x位起m个字符。要求：起始位号+提取长度<=源字串长度+1 left(源字串，左侧截取长度x)；返回左侧x个字符 right(源字串，右侧截取长度y)；返回右侧y个字符 instr(源字串，待查找子字串u)；返回子字串首字符在源字串中的起始位号 chr(65)；返回字母a ......