why won't this code work?

the sending App:

On Error Resume Next
Winsock1.RemoteHost = txtAddress.Text
Winsock1.RemotePort = 1000
Winsock1.Connect txtAddress.Text, 1000
Do Until Winsock1.State = sckConnected
DoEvents: DoEvents: DoEvents: DoEvents
If Winsock1.State = sckError Then
MsgBox "There was a fatal error!"
Exit Sub
End If
Loop
Winsock1.SendData (txtMessage.Text)
Winsock1.Close

then receiving app:

Private Sub Form_Load()
On Error Resume Next
Winsock1.LocalPort = 1000
Winsock1.Listen

End Sub

Private Sub Form_Unload(Cancel As Integer)
Form3.Hide
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim strIncoming As String
Winsock1.GetData strIncoming
textbox1.Text = textbox1.Text & vbCrLf & strIncoming
End Sub