>>24
Like 演算子じゃダメかな

IF Range("A1").Value Like "*ZZZ*" Then

とか