imz a vb.netz noobz... helpx meh plzzzz?

Code (Text):

1.             Dim Strhtml As String
2.             w.Request("POST", "http://www.neopets.com/pound/process_adopt.phtml?pet_name=" + petname.Text, "http://www.neopets.com/pound/adopt.phtml?search=" + petname.Text)
3.             Strhtml = w.Request("GET", "http://www.neopets.com/quickref.phtml", "http://www.neopets.com/pound/process_adopt.phtml?pet_name=" + petname.Text)
4.             If Strhtml contains petname.text then
5.                 log.Items.Add(petname.Text + "has been adopted! Stopping!")
6.                 Timer1.Enabled = False
7.             Else

error returned:
end of statement excpected.
"contains petname.text then" is underlined in green...
Helps!!!?

 

mez luvz uz <3
mez gonna plus reps u!
*Adds a heart button on the program for you*