パターンを使うんでしょうね。 → ^(?!xyz) Excelマクロでの実験プログラム Dim A, P$ Set A = CreateObject("VBScript.RegExp") A.Global = True A.IgnoreCase = True P = "^(?!xyz)" A.Pattern = P Debug.Print A.Test("xyz123") '★(1) Debug.Print A.Test("123xyz") '★(2) (1)先頭が「"xyz"以外」という条件に反するのでFalse (2)先頭が「"xyz"以外」という条件に合うのでTrue http://msdn.microsoft.com/ja-jp/library/cc392020 …