Передать файл через локальную сеть или интернет

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Client As New UNOLibs.Net.ClientClass
        Dim F(0) As String
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            F(0) = ofd.FileName
            Client.SendFiles("94.51.240.173", "2233", F)
            MsgBox("Ready!", MsgBoxStyle.Information)
        End If
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Server, Server2 As UNOLibs.Net.ServerClass
        'Server = New UNOLibs.Net.ServerClass(2233, True, "E:\")
        Server2 = New UNOLibs.Net.ServerClass(2233, True, "E:\")
    End Sub

Private Sub DoListen()
 
        Dim bytes() As Byte = New [Byte](1024) {}
        Dim listener As New Socket(AddressFamily.InterNetwork, _
        SocketType.Stream, ProtocolType.Tcp)
        Dim remoteEP As New IPEndPoint(ipAddress, 2233)
        listener.Bind(remoteEP)
        listener.Listen(10)
        While True
            Dim handler As Socket = listener.Accept()
            data = Nothing
            While True
                bytes = New Byte(1024) {}
                Dim bytesRec As Integer = handler.Receive(bytes)
                data += Encoding.UTF8.GetString(bytes, 0, bytesRec)
                If data.IndexOf("*") > -1 Then
                    Exit While
                End If
            End While
 
            If TextBox2.InvokeRequired Then
                TextBox2.BeginInvoke(New Threading.ThreadStart(AddressOf DoSomeActions))
            Else
                DoSomeActions()
            End If
            handler.Shutdown(SocketShutdown.Both)
            handler.Close()
        End While
    End Sub

Server = New UNOLibs.Net.ServerClass(2233, True, "E:\")

If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then