Fastest? Well I'd like to say it is as some people claim it to be, but anything is possible

Here it is:

Code:
Public Function GetStringBetween(Main As String, start As String, Finish As String, Optional Index As Long = 1) As String
On Error Resume Next
    GetStringBetween = Split(Split(Main, start, Index + 1)(Index), Finish, 2)(0)
End Function
An example of using this to grab NP on hand would be:

lblNP.Caption = GetStringBetween(HTML, "NP: <a id='npanchor' href=""(you need an account to see links)"">", "</a>")

PS: If you have to use quotation marks in your code, put two like how I did. Otherwise it not work.