winsock with VB6

I use winsock in my vb6 apps to make connection to a server.  Once the connection is established and I want to send out data immediately, it fails.  Here is the code:

**************
tcpClient.Close
tcpClient.RemoteHost = "127.0.0.1"
tcpClient.remotePort = remotePortNum
tcpClient.Connect "127.0.0.1"
           
If tcpClient.State = sckConnected Then
   tcpClient.SendData "This is client"
Else
   Dim w As String
   w = "There is a problem"
   MsgBox w, vbCritical, "Connection Error"
   tcpClient.Close
   Exit Sub
End If
**************


I am sure the connection is ok but it just goes to the else statement 'connection error'
However, if I don't do the if then else here.  But have an extra button, cmdA, set in my application.  Once the cmdA is click and execute the same if then else within the event.  It works perfectly ok.  Any idea why?  The socket doesn't have enough wait time to send out signal?

Thanks.