'wskServer ist ein Winsock-Control
Option Explicit
Private Sub cmdExit_Click()
'Button Abbrechen, Exit etc
    Unload SERVER
    End
End Sub
Private Sub cmdListen_Click()
'Button Listen
    wskSERVER.LocalPort = "400" ' oder 342 oder ??
    wskSERVER.Listen
End Sub
Private Sub cmdSEND_Click()
'Button Senden, dafür brauchst du eine Textbox(hier txtEingabe)
    wskSERVER.SendData txtEingabe.Text
End Sub
Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
    If wskSERVER.State <> sckClosed Then _
        wskSERVER.Close
    wskSERVER.Accept requestID
    lblAusgabe.Caption = wskSERVER.State
End Sub
Private Sub wskserver_DataArrival(ByVal bytesTotal As Long)
Dim daten As String
    wskSERVER.GetData daten
    lblAusgabe.Caption = daten & vbCrLf
End Sub

Private Sub cmdConnect_Click()
'Button Connect
    wskCLIENT.RemoteHost = "" SERVER IP , wenn nicht läuft, dann CLIENT IP
    wskCLIENT.RemotePort = "400"
    wskCLIENT.Connect
End Sub
Private Sub cmdExit_Click()
'Button Beenden, Abbrechen etc
    Unload CLIENT
    End
End Sub
Private Sub cmdSend_Click()
'Button senden
    wskCLIENT.SendData txtEingabe.Text
End Sub
Private Sub wskCLIENT_DataArrival(ByVal bytesTotal As Long)
Dim daten As String
    wskCLIENT.GetData daten
    lblAusgabe.Caption = daten
End Sub