判断B2单元格中的文本是否包含“刚”字

Sub 判断信息()
If Range("B2").Value Like "*刚*" Then
MsgBox "B2中的数据包含【刚】字。"
Else
MsgBox "B2中的数据不包含【刚】字。"
End If
End Sub