Dim buff=System.Text.Encoding.Default.GetBytes(Text1.Text)
转换成字节数组
Encoding.GetBytes 方法 (String) (System.Text)
https://msdn.microsoft.com/zh-cn/library/ds4kkd55.aspx
转换成ascii码发送。
