Hello

I have a function called fCompareStrings

Code:
Public Function fCompareStrings(strSource As String, strSearch As String) As Single
Dim intCounter As Integer
Dim strTest As String
Dim intScore As Integer
Const conWORD_LENGTH As Integer = 3
 
For intCounter = 1 To Len(strSource) - conWORD_LENGTH
  strTest = Mid(strSource, intCounter, conWORD_LENGTH)
    If InStr(1, strSearch,
...