Looping

[Piller]

Im doing this

Private Sub Command7_Click()
popo = 0
Do Until popo = (Text1.Text)
Inet1.Execute "http://google.com"
Loop
End Sub

I want inet1 to execute that untill popo = what ever text1.text is , but i get a error on the Do Until part. What did i do wrong?