Nothing happens, it goes through it, and my caption does not change!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