Dim value As String Dim input As String Dim failmessage As String Assert.Contains(value, input, failmessage)