Sub Activity_Create(FirstTime As Boolean)
Dim s As String = "<div class=""list-animal-name""><a href=""wsAdoptableAnimalDetails.aspx?id=13069119&css=adoptableSearch.css"" >Jed</a></div>"
Dim m As Matcher = Regex.Matcher("class=\""([^""]+)\""><[^>]+>([^>]+)</a>", s)
Do While m.Find
Log(m.Group(2))
Loop
End Sub