Это решит проблему
Private Sub Search_Click(sender As Object, e As EventArgs) Handles Search.Click
Dim MyUrl As String = (adress.Text)
Dim EncodedURL As String = System.Web.HttpUtility.UrlEncode(MyUrl)
Dim url2 As String
url2 = String.Format("https://www.google.com.mx/search?q=" & EncodedURL & ", " & adress.Text & ", " & country.Text)
Process.Start(url2)
End Sub