'Removes case sensitivity
Option Compare Text
'Adds case sensitivity
Option Compare Binary
'Compare
debug.print StrComp(string1, string2, vbUseCompareOption) 'with choosen option
debug.print StrComp(string1, string2, vbBinaryCompare)      'case sensitive
debug.print StrComp(string1, string2, vbTextCompare)      'case insensitive