need help with this proxy checker code

[SystemX]

Hi, i found this small code through google, it works but i need it changing a little

VB CODE

Dim host As String
        Dim port As Integer

        host = TextBox1.Text
        port = TextBox2.Text
     
   ' Next part creates a socket to try and connect on with the given user information.

        Dim hostadd As System.Net.IPAddress = System.Net.Dns.GetHostEntry(host).AddressList(0)
        Dim EPhost As New System.Net.IPEndPoint(hostadd, port)
        Dim s As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
        System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
        Try
            s.Connect(EPhost)
        Catch
        End Try
        If Not s.Connected Then
            MsgBox("program did not connect")
        Else
            MsgBox("program did connect")
        End If
    End Sub

What it does is checks the given proxy ip and port with textbox1 and textbox2.

What i need is for it to just check textbox1 but have the proxy in the format of proxyort like 1.2.3.4:8080

Thanks for any help