grep なら一行でできるのに VBA でやらないといけないのか