Simple chat mellem flere brugere

Greetings alle sammen,

Jeg er midt i at lave et simpelt chat program mellem flere computere (over det lokale netværk). Jeg læste artiklen "Simpel chat mellem to computere", og det gav mig selvfølgelig blod på tanden. Jeg ville ikke gå i krig med at copy/paste artiklen "avanceret chat mellem flere computere", så jeg spekulerede på om der ikke var en simpel måde hvorpå man kunne gøre det tilgængeligt for flere computere at skrive sammen, uden at rode sig ud i en masse kode (jeg går stadig under betegnelsen "n00b" -.-). Min kode er postet nedenfor.

Kode 

Public SendTil As String




Private Sub Form_Load()

    W.Protocol = sckUDPProtocol
    W.RemotePort = 1000
    W.LocalPort = 1000
    W.Bind

    
    SendTil = InputBox("Type ze IP, if you dare!", "Ip.")
        
    If SendTil = "" Then MsgBox "This application can not run without a remote IP"
        
    W.RemoteHost = SendTil
    
    Text2.Text = W.LocalIP
    
    Text1.Text = ""
    
    Text3.Text = ""
    
    Label2.Caption = "RemoteHost=" + W.RemoteHostIP + "//" + W.RemoteHostIP
    
End Sub



Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then

On Error GoTo fejl2

If Text3.Text = "" Then: GoTo fejl

W.SendData Text3.Text

Text1.Text = Text1.Text + vbCrLf + W.LocalIP + "((" + Text3.Text


Text3.Text = ""

Text1.SelStart = Len(Text1.Text)

KeyAscii = 0

Exit Sub:
fejl:


Exit Sub
fejl2:

MsgBox "Retype the IP", vbCritical

SendTil = InputBox("Type ze IP")


End If
End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)
SendTil = W.RemoteHost

Dim Tekst As String
W.GetData Tekst

Text1.Text = Text1.Text + vbCrLf + W.RemoteHostIP + "((" + Tekst
Text1.SelStart = Len(Text1.Text)
End Sub