Try adding DoEvents after sending data because sometimes it takes time to send the data accross. Also might want to check to see if winsock is connected.

VB Code:
  1. Public Sub cmdLogin_Click()

  2.     Winsock.RemoteHost = "127.0.0.1" 

  3.     Winsock.RemotePort = 6000

  4.     Winsock.Connect

  5.    

  6.     While Winsock.State <> sckConnected

  7.         If Winsock.State = sckClosed Then GoTo Cnn_Lost

  8.         DoEvents

  9.     Wend

  10.     Winsock.SendData txtLogin.Text

  11.     DoEvents

  12.     Winsock.Close

  13. Cnn_Lost:

  14.      Winsock.Close

  15. End Sub