首先要确定，文本框里输入的一串字符，数据之间要用固定的、相同的分隔符隔开，否则一切免谈。比方说用逗号分开（要注意逗号也分全角和半角的，不能混用）：Dim s() As Strings = Split(Text1.Text, ",")
