Dim pattern As String Dim input As String Dim failmessage As String Assert.NotMatches(pattern, input, failmessage)