'StrComp(string1, string2 [, compare])(vbTextCompare) or binary comparison (vbBinaryCompare). Sub strDemo() Dim Pet As String Pet = "dog" If StrComp(Pet, "dog", vbTextCompare) = True Then _ MsgBox "We do not accept dogs." End Sub