有些文本中的换行符不一定是vbCrLf，也有可能是vbCr或vbLf，你可以这样试试：
在葫芦岛等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站设计、成都做网站 网站设计制作按需定制开发,公司网站建设,企业网站建设,成都品牌网站建设,全网营销推广,成都外贸网站制作,葫芦岛网站建设费用合理。
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)
在VB.NET中如果需要将一个字符串转换成字节数组，可以使用System.Text命名空间中某个编码对象的GetBytes方法。
Dim strText As String = "This is an original string"
vb.net已经去掉了控件数组这个类，不过有个代替该方式的一个属性：tag，你可以把这些关联的tag属性设置为同一标记，如：a。然后遍历所有的checkbox并且tag为a的则选定：
protected
sub
chkall_click()
for
each
ctl
as
control
in
me.controls
''如果checkbox在一个容器里，比如groupbox，那可以用groupbox.controls
if
ctl.gettype().name.tolower()
=
"checkbox"
then
ctype(ctl,
checkbox).checked
=
checkbox3.checked
end
if
next
end
sub
如果不是用冒泡法用这个
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim My_str() As String = {"123", "45", "6", "12"}
Dim my_int() As Integer = System.Array.ConvertAll(My_str, New Converter(Of String, Integer)(AddressOf StrToInt))
System.Array.Sort(my_int)
Dim My_array() As String = Array.ConvertAll(my_int, New Converter(Of Integer, String)(AddressOf IntToStr))
End Sub
Public Shared Function StrToInt(ByVal bs As String)
Return CInt(bs)
End Function
Public Shared Function IntToStr(ByVal bs As Integer)
Return CStr(bs)
End Function
End Class
My_array() 是结果
1。动态数组 dim myStr() as string
2。固定数组 dim myStr(10) as string
3。net字符串数组 dim myStr as string()
都差不多的。
解决方法：
1.字符串内容设置为定长，或者定义一个结束符（或字符串，如连续2个0xFF）附加在字符串尾部，程序以此方式先以文本方式读取字符串数据。
2.字符串内容也按照二进制方式发送。
3.在传输的字符串和二进制数据前附加N字节的标识字节，其中存储发送的字符串和二进制字符串长度。
方法很多。