Code:
Private Sub Command2_Click()

Strhtml = Neopets1.Wrapper1.GetWrapper("http://neopets.com/index")

Dim html As String

Hand.Caption = GetStringBetween(html, "NP: <a id='npanchor' href=""/objects.phtml?type=inventory"">", "</a>")

End Sub
Nothing happens, it goes through it, and my caption does not change!