German Winsock1 vs Socket1

[HarryPottier]

Mit diesem kleinem Visual Basic Code kann ich Textnachrichten zwischen 2 Windows PS senden und empfangen via Winsock.

Private Sub InitUDP()

Dim sOwnIP As String
Dim nPort As Integer    ' UDP-Port

    ' UDP-Protokoll einstellen
    Winsock1.Protocol = sckUDPProtocol
    
    ' Port, der überwacht werden soll
    nPort = 12345
 
    ' Eigene IP ermitteln
    EigeneIP$ = Winsock1.LocalIP
    
    ' Port an die IP "binden"
    Winsock1.Bind nPort, sOwnIP
 
End Sub


Private Sub ipAndroidSend()

    ' Portnummer, an der die Daten gesendet werden sollen
    Winsock1.RemotePort = 12345
    
    ' Name bzw. IP des Empfängers
    Winsock1.RemoteHost = EigeneIP$
    
    ' Daten senden
    Winsock1.SendData "Guten Morgen" ' aus TextBox

End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sData As String
 
  ' Die ankommenden Daten werden in einer Variable, (sDaten) gespeichert...
  Winsock1.GetData sData
 
  LabelAusgabe.Caption = sData
 
End Sub

Verschiedene ähnliche Versionen aus dem Forum habe ich getestet, diese gehen jedoch am Ziel vorbei, verwenden Server Socket1 und mehr und senden keine Zeile an meinen PC.

Ich suche ein Paar einfach zu verstehen Zeilen (Programm Code) die ein Text über das Winsock Protokoll sendet und Empfängt.
Vielen Dank im Voraus.