Excel VBA StrComp Function

VBA StrComp Function: The StrComp function in VBA compares two strings and returns an integer value displaying the result of the comparison.

Syntax

StrComp (String1, String2, [Compare])

Parameter

String1 (required)- This parameter represents the first string to be compared.

String2 (required) – This parameter represents the second the second string to be compared.

Compare (optional) - This parameter represents the type of comparison to make. The default value is vbBinaryCompare.

It can take any of the following values:

• vbBinaryCompare (default value): To perform a binary comparison
• vbTextCompare: To perform a text comparison
• vbDatabaseCompare: To perform a database comparison

Return

This function integer value displaying the result of the comparison. The returned output can be of any of the following values:

• It returns 0, if both the strings are equal.
• It returns -1, if String1 is less than String2
• It returns 1, if String1 is greater than String2.
• It returns null, if both the strings are Null

Example 1

Sub StrComp_Example1()
 'Comparing the Strings (string1 and string2).
 Dim str As Integer
 'initializing the string 1
 String1 = "Joey Jonas"
 'initializing string 2
 String2 = "Joey Jonas"
 str = StrComp(String1, String2)
 ' The Integer str will return integer value 0 as both the strings are equal.
 If str = 0 Then
     MsgBox ("Both the strings are equal!")
 Else
     MsgBox ("Opps! Both the strings are unequal")
 End If
 End Sub 

Output

Both the strings are equal!

Example 2

Sub StrComp_Example2()
 Dim str As Variant, IB As Variant
 'initializing with the password
 Password = "panda"
 Jmp:
 IB = InputBox("Enter your Password")
 If Password = IB Then
     MsgBox ("Hello! Welcome to VBA World!")
 Else
     MsgBox ("Sorry! Retry the password")
     GoTo Jmp
 End If
 End Sub 

Output