DownloadString will return ip address with \n at the end of the string. you need to remove that and compare.
sample work around
If GetIP().Replace("\n","") = TextBox1.Text Then
Label1.Text = "VPN DROPPED"
Else
Label1.Text = "Your Good"
End If