Programaçao VB 2010

boa noite, estou com um problema e não sei onde estou errando...


Eu tenho o Exercicio que é o seguinte: Crie um programa em VB que leia o peso e o número dos bois de um rebanho. Depois conte o número de bois com peso entre 200 e 300 quilos (inclusive). Se o número do boi for igual a 0 o algoritmo deve ser interrompido.

coloquei no formulario 4 labes, 4 textboxs e um buttom e os códigos que fiz foram assim:

Dim id1, id2, cont As integer
Dim p1, p2 As Double

id1 = TextBox1.Text
id2 = TextBox2.Text
p1 = TextBox3.Text
p2 = TextBox4.Text

cont = 0

While (id1 > 0) And (id2 > 0)
If (p1 >= 200 And p1 <= 300) Or (p2 >= 200 And p2 <= 300) Then
cont = cont + 1
End If
End While

MsgBox(cont)

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
End Sub
End Class

mas algo da errado e não sei oque é, sempre da bug. Me ajudem a entender por favor!! >__<
obrigado!

quando eu executo, ele trava...