Comparing Similarity in Text Values VBA

So why don't you add this line at the top of your function:-

a = lcase(a) : b = lcase(b)

converting both your strings to lowercase.

Doing that returned 100%