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