I have spent too long trying to figure this out and was hoping that someone may have the answer (likely a noob mistake on my part). I am running the following code: 
            For i = 1 To 2
            LoopText = Me("CB_CG" & i).value
            MsgBox ("LoopText = " & LoopText & newLine() & _
              "sh3.Range('ClientFullName').value = " & sh3.Range("ClientFullName").value & newLine() & _
              "Instr Returns: " & InStr(LCase(LoopText), LCase(sh3.Range("ClientFullName").value)))
            MsgBox (InStr(LCase(LoopText), LCase(sh3.Range("ClientFullName").value)))
                If InStr(LCase(LoopText), LCase(sh3.Range("ClientFullName").value)) <> 0 Then
                MsgBox ("The Client can not be included with the billing code listed.  Please remove the client or use a different billing code.")
                Exit Sub
                End If
            Next i
And every time, InStr returns 0 no matter the string or substring values (even if Identical).

InStr Dead.JPG

I know the code is redundant and messy but this is after several hours of trying to get it to work. My guess is that it is due to trying to use a form combobox value as the string to search in as using the same info from the workbook seems to work.

Any help will be greatly appreciated!