假设你要分割的字符串是string1的话
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：空间域名、雅安服务器托管、营销软件、网站建设、爱辉网站维护、网站推广。
分割代码就是：
dim s as string=strings.split(string1,vbcrlf)
这样s就是一个阵列了。s(0)是第一段内容，s(1)是第二段内容，以此类推。~~
googles8 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。
事实上，在B =阵列（...）数组参数短语的主要问题是2,5,3，所以这些整数数组（）函数的返回值类型的一个变种，而不是塑料。在指定的子数组参数的定义是一个整数，导致类型不匹配错误。
使用下面的方法解决这个问题：
定义函数的参数类型，
。私人小组代码（1为ByRef（带），作为字符串BYVAL myStr中）
你提到的原因，后的ByRef参数类型不匹配，因为默认情况下是作为一个参数传递的函数地址，你的第二个参数myStr的前面不限制转让其参数，系统，与前一个（）相同的地址，已成为通过轻轻是一个错误，只要在前面加1 BYVAL。
后的代码如下（调试通过）：
选项??基地1
。私人小组代码（1为ByRef（带），作为字符串BYVAL myStr中）
？？作为字符串昏暗的通道，C1为字符串
？N = UBound的（一） - LEN（myStr中）
？如果N 0？
？？？myStr的= myStr的字符串$（“*”）
？？结束如果
？？CH = myStr的
？？对于k = 1，UBound的（一）
？？？C1 = MID（myStr中，K，1）
？？？N = A（K）
？？？中$（CH，N）= C1
K-？
？？myStr的= CH
？打印myStr的？
END SUB
私人小组Command1_Click（）
昏暗的b（）
B =阵列（2，5，3，7，6，1，4）
MYNAME =“克莱门特”
调用的代码（二MYNAME）
END SUB
用自定义类型数组处理：
Private Structure PhoneBook
Dim ID As Integer
Dim name As String
Dim sex As Boolean
Dim phone As String
Dim email As String
Dim group As String '这里也可以设置为整数型，用序号来代表各个组
End Structure
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim PBook() As PhoneBook, tmpstr() As String, iCount As Integer = 0
Dim str As IO.StreamReader = New IO.StreamReader("C:\1.txt", System.Text.Encoding.Default)
Do Until str.EndOfStream
tmpstr = Split(str.ReadLine(), ",")
If tmpstr.Length = 6 Then
ReDim Preserve PBook(iCount)
PBook(iCount).ID = CInt(tmpstr(0))
PBook(iCount).name = tmpstr(1)
If tmpstr(2) = "男" Then PBook(iCount).sex = True Else PBook(iCount).sex = False
PBook(iCount).phone = tmpstr(3)
PBook(iCount).email = tmpstr(4)
PBook(iCount).group = tmpstr(5)
iCount += 1
End If
Loop
str.Close()
End Sub