hola falconeti,
en primer lugar, tu código parece correcto... quizas revisa esta línea
RichTextBox1.Text = RichTextBox1 & vbCrLf & Winsock1.RemoteHostIP & ">" & datos
por
RichTextBox1.Text = RichTextBox1[COLOR=red][B].Text[/B][/COLOR] & vbCrLf & Winsock1.RemoteHostIP & ">" & datos
de todas maneras tampoco creo que sea el fallo... aun asi, si ves caracteres raros, es porque precisamente es lo que está entrando por el puerto.. es decir, si tu mandas el byte 224... lo que vas a ver va a ser "Ó".. de todas maneras si te sigue dando problemas, sube el código y le echo(echamos) un vistazo.
saludos, miguel