Compare Text In One Cell To Another

I am trying to develop a program where the end state will be this program finding all instances of similar text within cells from multiple sheets and grouping it together. This question is going to deal specifically with the sub process I am trying to make dealing with the comparison portion. I created the following code which is simply a test to see how my comparison could work. It compares two cells right next to each other and goes letter by letter and spits out a similarity score. The code is below

Please Login or Register  to view this content.

The problem with this code is the results are not what I am wanting. For example if I have entries "This is a test string" compared to "Ths is a text string" due to my macro comparing value by value a mistake in the beginning makes the similarity score very low when in actuality the only error is a missing "i" Does anyone have suggestions for this code to compare word by word instead of value by value? I use the word value here because there will be instances where the "text" will include numbers such as 90% for example.

I've used this function with some success in the past as a UDF. It scores the similarity as a percentage where 100 = identical.
Depending on the data, you can usually establish a threshold percentage over which the strings are similar enough to warrant further consideration.

Please Login or Register  to view this content.

This is a test string VS Ths is a text string scores 74%