forse perchθ a θ vuota.
prova a scrivere a="prova" e vedrai che va

codice:
Private Sub Command1_Click() 
MsgBox Winsock1.State 
Dim a As String 
a="prova"
Winsock1.SendData a 
MsgBox a 
End Sub