Help extracting dyanamic data from html code

<img border="0" src="../images/download.gif" width="16" height="16" longdesc="Download songname" alt="Download songname"></a>
       &nbsp;songname
          </td>

::: Singer: <b>artistname</b> Album <b>albumename</b>::::</font></td>

<td>
      <br>
      <a href="http://localhost/ShowImage.asp?img=http://localhost/artistpic.jpg" target=_blank>
      <img border="0" src="../CdImages/artistpic.jpg" width="180" height="180" longdesc="Click here to Enlarge" alt="Click here to Enlarge" >
      </a>
    </td>

Private Sub Command1_Click(Index As Integer)

Select Case Index
 Case 0:
  If txtURL.Text <> "" Then
   RichTextBox1.Text = Inet1.OpenURL(txtURL.Text, icString)
  End If
 
 Case 1:
  End
End Select
End Sub


Private Sub Command2_Click()
 Dim sResult() As String, n As Long


   If GetLine(RichTextBox1.Text, "../player/player.asp?id=", "')", sResult)  Then
  For n = LBound(sResult) To UBound(sResult)
    List1.AddItem sResult(n)   
  Next n
  
Else
  ' No occurances were found
 End If
End Sub




Private Function GetLine(ByVal sText As String, ByVal sStart As String, ByVal sEnd As String, ByRef sArr() As String) As Boolean
 Dim lPos As Long, lEnd As Long, lCount As Long, sTemp() As String
 
 ReDim sTemp(100)
 
 lPos = InStr(1, sText, sStart, vbTextCompare)
 Do While lPos
  lEnd = InStr(lPos, sText, sEnd, vbTextCompare)
  If lEnd Then
  
   sTemp(lCount) = Mid$(sText, lPos, lEnd - lPos)
   lPos = InStr(lEnd, sText, sStart, vbTextCompare)
  Else
   sTemp(lCount) = Mid$(sText, lPos)
   lPos = 0
  End If
  lCount = lCount + 1
  If lCount > UBound(sTemp) Then ReDim Preserve sTemp(100 + lCount)
 Loop

 If lCount > 0 Then
  ReDim Preserve sTemp(lCount - 1)
  sArr = sTemp
 End If
 GetLine = lCount
End Function