Right(subFolder.Path, 7)
will give you the last six characters of the path. You then need to compare them to _IMAGES. You can use StrComp for that
StrComp("_IMAGES", path)
That will give you 0 if they are identical. So something like this (untested) will give you the idea.
If Not StrComp("_IMAGES", Right(subFolder.Path, 7)) = 0 then
Search objFSO.GetFolder(subFolder.Path)
End If
Here's a helpful reference to fill in the gaps.
I don't miss vbscript at all