Problem quoting/editing emoticons (smileys)

'Loop through the message till all or any IMAGE links are converted back into codes   
 Do
While InStr(1, strMessage, "<img ", 1) >
0                 

                     
 'Find the start position in the image tag      
  lngStartPos = InStr(1, strMessage, "<img ", 1)            
                                                    

  'Find the position in the message for the image closing tag       
 lngEndPos
= InStr(lngStartPos, strMessage, "/>", 1) +
3              

 'Make sure the end position is not in error      
 
If lngEndPos - lngStartPos =< 10 Then lngEndPos = lngStartPos +
10                

             
  'Read in the code to be converted back into the forum codes        
strMessageLink
= Trim(Mid(strMessage, lngStartPos, (lngEndPos -
lngStartPos)))           

      
  'Place the image tag into the tempoary message variable        
strTempMessage = strMessageLink               
 'Format the HTML image tag back into forum codes       
strTempMessage = Replace(strTempMessage, "src=""", "", 1, -1, 1)
strTempMessage = Replace(strTempMessage, "<img ", "strTempMessage = Replace(strTempMessage, """ />", "">", 1, -1, 1)

       
  'Place the new fromatted codes into the message string body       
 strMessage
= Replace(strMessage, strMessageLink, strTempMessage, 1, -1,
1)           
 Loop