MessageBox.Show("Warte auf Anfragen...")
 
Dim ServerSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
  ProtocolType.Tcp) 'ServerSocket erstellen
Dim ClientSocket As Socket                                                      _
                'Socket für Client definieren
 
Dim IPBytes() As Byte = {169, 254, 6, 23}
Dim IPAdr As New IPAddress(IPBytes)
Dim EPHost As New IPEndPoint(IPAdr, 5005)
' Auf Verbindungsanforderungen warten
Try
    ServerSocket.Bind(EPHost)
 
    ServerSocket.Listen(1)                                                      _
                      'Verbindungsaufbau
    ClientSocket = ServerSocket.Accept()                                        _
                    'Verbindung steht, Mc hat geantwortet
    MessageBox.Show("Client-Anfrage erhalten.")
 
    For i As Short = 0 To 100 Step 1
 
        Dim Nachricht1(100) As Byte                                             _
                             'Byte Variable "Nachricht" definieren
        ClientSocket.Receive(Nachricht1, 100, SocketFlags.None)
        Dim NachrichtText_1 As String = Encoding.Default.GetString(Nachricht1)  _
                            'Umwandeln der Bytes in eine Zeichenkette(String)
 
        TextBox1.Text = NachrichtText_1
 
    Next i
 
Catch Ex As SocketException
    MessageBox.Show("Socket-Error: " & Ex.Message)
Catch Ex As SystemException
    MessageBox.Show("Error: " & Ex.Message)
End Try