Question : Using instr to find "&" then replace it with "and"

Experts I have the following code; I am trying to find if any of the data this loop processes has an "&" if so then I want to replace it with the text " and" but it never find the "&".
The example of data that I am searching is <PACK>LORRIE & DARRYL </PACK>
What I need is <PACK>LORRIE and DARRYL </PACK>
The loop and proces works just never find the &

For c = 1 To rs7.Fields.count - 1
If rs7.RecordCount > 0 Then
strCurrTxt = ""
strCurrTxt = rs7.Fields(c) ' DO not need first field do not use b-1
If InStr(1, strCurrTxt, "&") > 0 Then
msgbox " instring"
strCurrTxt = Replace(strCurrTxt, "&", " and ", 1)
End If
rs8.AddNew
rs8!Export = strCurrTxt
rs8.Update
rs8.Bookmark = rs8.LastModified
Else
strCurrTxt = "NO TEXT FOUND"
msgbox "Break and check"
End If
'rs7.MoveNext
Next c

Thank you experts, mdlp

Answer : Using instr to find "&" then replace it with "and"

InStr still doesn't buy you anything.

Try this, and report back with what's in the message boxes.

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

           
           
             For c = 1 To rs7.Fields.count - 1 '        
         If rs7.RecordCount > 0 Then
            strCurrTxt = ""
            strCurrTxt = rs7.Fields(c)  ' DO not need first field  do not use b-1
MsgBox "1: " & strCurrTxt
            strCurrTxt = Replace(strCurrTxt, "&", " and ", 1)
MsgBox "2: " & strCurrTxt
            'If InStr(1, strCurrTxt, "&") > 0 Then
              'msgbox " instring"
              'strCurrTxt = Replace(strCurrTxt, "&", " and ", 1)
            'End If
             rs8.AddNew
            rs8!Export = strCurrTxt
            rs8.Update
MsgBox "3: " & rs8!Export
            rs8.Bookmark = rs8.LastModified
        Else
            strCurrTxt = "NO TEXT FOUND"
            msgbox "Break and check"
        End If
        'rs7.MoveNext
      Next c
           
         