Dim httpcontent As String = "12345632541456iuzjt" & _
  "src=""http://ec1.images-amazon.com/images/P/B00008MNYS.01.MZZZZZZZ.jpg""" & _
  "alt=""Show releasadftz87i65433456"
 
        Dim Startposition As Integer = InStr(httpcontent, "src=""http://")
        If Startposition > 0 Then
 
            'wir schneiden die ersten 4 zeichen weg, die wir nicht brauchen:
            Startposition += 4
            httpcontent = httpcontent.Substring(Startposition)
 
            'Hier jetzt das ende des string suchen, und die sache ist fertig.
            Dim Laenge As Integer = InStr(httpcontent, ".jpg""")
            If Laenge > 0 Then
 
                'wir fügen ".jpg" wieder hinzu:
                Laenge += 3
 
                'Anzeigen von dem link:
                MsgBox(httpcontent.Substring(0, Laenge))
 
            Else
                MsgBox("Ende nicht gefunden")
            End If
 
 
        Else
            MsgBox("Start nicht gefunden")
        End If