Fehler bei dem Befehl AxWinsock1.SendData(TextBox1.Text)

Hallo,

ich versuche mich an einem Tool das einen Text an einen anderen Client schickt.
Die Anmeldung an dem anderen Client funktioniert.
Beim senden mit dem Befehl AxWinsock1.SendData(TextBox1.Text)
kommt immer folgende Fehlermeldung HRESULT: 0x800A9C46

Hier der Quellcode des Senders

Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles AxWinsock1.ConnectionRequest

AxWinsock1.Accept(sender)

End Sub

Private Sub BUT_SENDEN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUT_SENDEN.Click

AxWinsock1.RemoteHost = "FW01LXBR"
AxWinsock1.Connect("FW01LXBR", "1234")
AxWinsock1.SendData(TextBox1.Text)

End Sub

Hab ich noch etwas vergessen oder ist das so total falsch.
Bitte um Hilfe
Bin Anfänger

Danke