Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button3.Click
    ' Datei auslesen und versenden!
    Dim datei As String = "‪F:\Temp\atomzeit.exe"
    Dim bytes() As Byte = GetBytes(datei)
    Dim result = Convert.ToBase64String(bytes)
    Winsock1.SendenServer(result) ' String senden
    End Sub

    Private Sub Winsock1_DateiEmpfangClient(dateiempfang As String) Handles _
      Winsock1.DateiEmpfangClient
    Me.TextBox3.Text = dateiempfang
    ' Dateien Empfangen
    If dateiempfang Is SendFile Then
    ' Wenn eine Datei verschickt wird!
    Dim bytesBack = Convert.FromBase64String(Me.TextBox3.Text)
    System.IO.File.WriteAllBytes(Application.StartupPath & _
      "\Downloads\atomzeit.exe", bytesBack)
    ' Senden mit Progressbar 1 - 100%
    ' Event: gestartet, erfolgreich, fehler, fertig....
    End If
    ' Wenn keine Datei dann hier den String auslesen.....
    If Me.TextBox3.Text = "test" Then
    MsgBox("test")
    End If
    End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button4.Click
        ' Datei auslesen und versenden!
        Dim path As String = System.IO.Path.Combine("F:\Temp\", "atomzeit.exe")
        Dim pic As Byte() = IO.File.ReadAllBytes(path)
        Winsock1.SendenClient("datei#" & Convert.ToBase64String(pic))
    End Sub

Private Sub Winsock1_DateiEmpfangServer(dateiempfang As String) Handles _
  Winsock1.DateiEmpfangServer
        Me.TextBox3.Text = dateiempfang
 
        ' Datei Empfangen
        Static file_buffer As String
        file_buffer += Me.TextBox3.Text
        Label4.Text = "Eine Datei wird übertragen...."
        Dim b() As Byte = Convert.FromBase64String(file_buffer.Replace( _
          "datei#", ""))
        Try
            IO.File.WriteAllBytes(Application.StartupPath & _
              "\Downloads\testNEU1.exe", b)
            Label4.Text = "Datei erfolgreich übertragen...."
        Catch
            Label4.Text = "Fehler beim übertragen der Datei...."
        End Try
 
End Sub