Подключение к Интернетам через прокси

Dim myWebRequest As WebRequest = WebRequest.Create("https://www.google.com")
Dim myProxy As New WebProxy()
myProxy = CType(myWebRequest.Proxy, WebProxy)

Dim prox As New System.Net.WebProxy("94.140.248.180", 8080) 'адрес , порт
        prox.Credentials = New NetworkCredential("user", "password") 'имя , пароль
 
        Dim myWebRequest As WebRequest = WebRequest.Create("http://www.google.com")
        myWebRequest.Timeout = 3000
        myWebRequest.Proxy = prox
        Try
            Dim response As WebResponse = myWebRequest.GetResponse()
            Dim dataStream As Stream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
 
            Dim responseFromServer As String = reader.ReadToEnd()
            If responseFromServer <> "" Then
                MsgBox("Есть инет")
            Else
                MsgBox("Нет инета")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Dim NetGoogle As New Net.NetworkInformation.Ping
Dim NetYandex As New Net.NetworkInformation.Ping
Dim NetMyServ As New Net.NetworkInformation.Ping
 
'===========ПРОВЕРЯЮ НАЛИЧИЕ СЕТИ==========================================================================
If My.Computer.Network.IsAvailable = False Then
    MsgBox("Код ошибки 1х001" & vbNewLine & _
           "На Вашем компьютере отсутствует подключение к сети! Проверьте кабель и настройки подключения!" & vbNewLine & _
           "После устранения проблем с подключением запустите программу установки повторно", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "ВНИМАНИЕ!!!")
End
End If
'===========ПРОВЕРЯЮ НАЛИЧИЕ СЕТИ==========================================================================
 
 
'===========ПРОВЕРЯЮ НАЛИЧИЕ ИНТЕРНЕТ-СОЕДИНЕНИЯ===========================================================
TimePing = 5000
 
If NetGoogle.Send("8.8.8.8", TimePing).Status = System.Net.NetworkInformation.IPStatus.Success Then
    InetOkGgl = True
Else
    InetOkGgl = False
End If
 
If NetYandex.Send("77.88.8.7", TimePing).Status = System.Net.NetworkInformation.IPStatus.Success Then
    InetOkYan = True
Else
    InetOkYan = False
End If
 
'=======ЕСЛИ ИНЕТА НЕТ - СООБЩАЮ УДАЛЯЮ ВЫХОЖУ=============================================================
If InetOkGgl = False And InetOkYan = False Then
    If IO.File.Exists(SlcPthRun) Then IO.File.Delete(SlcPthRun)
 
    MsgBox("Код ошибки 1х002" & vbNewLine & _
           "На Вашем компьютере отсутствует подключение к Интернету! Проверьте кабель и настройки подключения!" & vbNewLine & _
           "После устранения проблем с подключением запустите программу установки повторно", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "ВНИМАНИЕ!!!")
    End
End If
'=======ЕСЛИ ИНЕТА НЕТ - СООБЩАЮ УДАЛЯЮ ВЫХОЖУ=============================================================
 
 
'=======ЕСЛИ ЕСТЬ ГУГЛ ИЛИ ЯНДЕКС- ИЩУ СВОЙ СЕРВЕР=========================================================
If InetOkGgl = True Or InetOkYan = True Then
    If NetMyServ.Send("15.121.175.61", TimePing).Status = System.Net.NetworkInformation.IPStatus.Success Then
        ServerOk = True
    Else
        ServerOk = False
    End If
End If
'=======ЕСЛИ ЕСТЬ ГУГЛ ИЛИ ЯНДЕКС - ИЩУ СВОЙ СЕРВЕР=========================================================