WinSock gider ikke SendData

Hejsa, jeg er ny indenfor Visual Basic og har prøvet at lave en sjov telnet klient.
Og sjovt nok har jeg fået problemer.

Den udskriver godt nok "outputtet" fra klienten i mit "textarea", men når jeg prøver at "sende" data'er til klienten, får jeg ikke de nye ouputs ud i textarea.

Enten er det fordi klienten ikke er tilsluttet, ellers er der fejl i mit output system.

Men er der en flink sjæl der vil prøve at hjælpe mig?

FORM LOAD -->

Private Sub Form_Load()
a.LocalPort = 0
a.Protocol = 0
a.RemotePort = 200
a.RemoteHost = "my.server.dk"
a.Connect

End Sub





DATA DER KOMMER UD -->

Private Sub a_DataArrival(ByVal bytesTotal As Long)

Dim data As String
a.GetData data, vbString, bytesTotal
k.Text = "" + k.Text + "" & data

End Sub




NÅR MAN TRYKKER "SUBMIT" -->

Private Sub Command1_Click()
a.SendData kommand.Text 'Send data til server
End Sub