done this way almost all languages work but not all yet
Private Sub Command14_Click()
RichTextBox1.TextRTF = “{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil\fcharset0 Arial;}}\viewkind4\uc1\pard\lang2057\f0\fs17 press \f1\fs26\u9658?\f0\fs17 to continue\par }”
TxtSendPal (RichTextBox1.TextRTF)
End Sub