Visual Basic - ayuda por favor

estoy haciendo un chat y este es el codigo y quiero save q error tiene

Servidor:
private sub from1_load()
WinSock1.LocalPort = 888
Text1.Text =
Text2.Text =
Command1.Caption = "Escuchar"
comman2.caption= "enviar"

Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

Cliente:
private sub from1_load()
WinSock1.RemotePort = 888
Text1.Text =
Text2.Text =
Text3.Text =
Command1.Caption = "Conectar"
Command2.Caption = "Enviar"

Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

si saven q pasa avisenme a [email protected] o dejenlo aca

gracias