vba 字符串模糊匹配问题

十万火急。请予指点。

我现在想实现这样的功能，通过vba来写一个脚本实现根据某一列情况来给定分值。但这列要求模糊匹配。

Public Sub ModProj()
'填充项目立项分值及结题分值
Dim i As Integer
For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row
Select Case Cells(i, 5)
Case "*国家自然基金*"
Cells(i, 8) = 240
Case "*国防基础*", "*国家科技部*"
Cells(i, 8) = 50

End Select
' End If
Next i

End Sub

但在调试时发现，达不到模糊匹配的效果。如有一列的值为国家自然基金，但结果 Cells(i, 8) = 240没有执行。
我用instr函数做了一下，但是If InStr("国家自然", Cells(3, 1).value, 1) Then居然报错说是类型不匹配。我那一列就是文本类型，怎么会不匹配呢

vba 字符串模糊匹配问题 字符串匹配问题 c# 谁会KMP字符串的模糊匹配啊！！！ 字符串模式匹配的问题 c语言字符串匹配的问题 EXCEL VBA中,关于字符串相减的问题 EXCEL VBA中字符串查找并变颜色的问题 字符串匹配算法 字符串匹配编程 关键字符串匹配算法