Excel VBA搜尋星字號?

用一個範例來說明 :
若 A1 ~ A5 分別儲存以下五個字串 :

m9
m*9
m*9z
m*90
m90

且希望 :
包含 ＊9 的字串, 在 B 欄同一列輸出 V
不包含 ＊9 的字串, 在 B 欄同一列輸出 X
則 Excel VBA 程式碼可設計如下 :

Sub find_str()

For i = 1 To 5
If InStr(Cells(i, 1), "*9") > 0 Then
Cells(i, 2) = "V"
Else
Cells(i, 2) = "X"
End If
Next

End Sub

程式執行後, 在 B1~B5 的輸出為 :

X
V
V
V
X