Hi,
if the type of compare is specified you have to say where he must start.
So use:

If chkMcase = vbChecked Then
position = InStr(1, str1, str2, vbBinaryCompare)
Else
position = InStr(1, str1, str2, vbTextCompare)
end if

Greetings.