Err...
First, Strhtml hasn't been initialized (from what I can see), so your wrapper is throwing what it gets right into the trash. We'll leave it for now, and initialize strhtml instead above it.
Code:
Private Sub Command2_Click()
Dim Strhtml As String
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
Next, I'm not sure what wrapper you're using (it looks like gluraks), so I'm not sure why you are calling Neopets1.Wrapper1.GetWrapper (unless you're using some sort of specialized control). If it IS just a wrapper, just leave it at Wrapper1.GetWrapper() (or whatever you named it). Also, /index on Neopets gives a 404. You want index.phtml.
Code:
Private Sub Command2_Click()
Dim Strhtml As String
Strhtml = Wrapper1.GetWrapper("http://neopets.com/index.phtml")
Dim html As String
Hand.Caption = GetStringBetween(html, "NP: <a id='npanchor' href=""/objects.phtml?type=inventory"">", "</a>")
End Sub
Next, afterwards you are initializing html as a string. Nothing wrong there, except when you use your GSB, you're searching in html, but html has nothing in it! Lets just get rid of html, and switch the searched string to strhtml.
Code:
Private Sub Command2_Click()
Dim Strhtml As String
Strhtml = Wrapper1.GetWrapper("http://neopets.com/index.phtml")
Hand.Caption = GetStringBetween(Strhtml, "NP: <a id='npanchor' href=""/objects.phtml?type=inventory"">", "</a>")
End Sub
Now, this should work (provided that you have logged in first, this could also be an issue that you have not logged in!)