String Functions VisualBasic Script

'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