Sub Getfound()
wwwreq2.New1("http://www.geocaching.com/my/")
wwwreq2.TimeOut=120000
wwwreq2.AddHeader("Cookie",GC_Session_ID&" "&GC_user_id)
Msgbox(wwwreq2.Headers)
wwwres2.Value = wwwreq2.GetResponse
tmp=wwwres2.GetString
Textbox1.Text=tmp
regex.New1("Caches Found: [0-9]+")
match.Value=regex.Match(tmp)
Return SubString(match.String,13,StrLength(match.String))
End Sub