no response after try to connect to remote host

[Doogle]

The DataArrival event is triggered when something has been received. You have to read it.

Private Sub con_DataArrival(ByVal bytesTotal As Long)
Dim reply_out As String
con.GetData reply_out
textOut.Visible = True
textOut.Text = textOut.Text & reply_out
End Sub