Code:If InStr(1, strHTML, "badpassword") Then check = False lststatus.AddItem ("Account " & user & "had the wrong password.") lblstatus.Caption = "Invalid Password/Username" ElseIf InStr(1, strHTML, "This account has been") Then check = False lststatus.AddItem ("Account " & user & "has been frozen.") lblstatus.Caption = "Sorry, This Account Has Been Frozen" ElseIf InStr(1, strHTML, "Update Account") Then check = False lststatus.AddItem ("Account " & user & " needs to be updated.") lblstatus.Caption = "Sorry, This Account Has Been Lawyerbotted" ElseIf InStr(1, strHTML, "failed_bday") Then check = True lststatus.AddItem ("Account " & user & " needs to be Bday cracked.") lblstatus.Caption = "Sorry, This Account Hasn't Been Logged in" ElseIf InStr(1, strHTML, "petcentral") Then check = True