Dim nPos As Long
Dim ePos As Long
Dim sImg As String
Dim sPos As Long
 
Do
  nPos = InStr(nPos + 1, sQuelltext, "<img alt=[image] src=", vbTextCompare)
  If nPos > 0 Then
    ePos = InStr(nPos + 1, sQuelltext, ">")
    If ePos > 0 Then
      sImg = Mid$(sQuelltext, nPos + 22, ePos - nPos - 21)
      sPos = InStrRev(sImg, "/")
      sImg = "eintrag" & Mid$(sImg, sPos)
      sQuelltext = Left$(sQuelltext, nPos + 21) & sImg & Mid$(sQuelltext, ePos _
        + 1)
    End If
  End If
Loop Until nPos = 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de