German Winsock1 vs Socket1

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