求一个好的解决办法，谢谢！！！

Question

x=split(value,",")
msgbox x(3)  '返回"b4"

Answer 1

dim s as string,ss() as string,i as integer,n as integers="a1,aa2,aaa3,b4,bb5,bbb6,c7,ccc8"ss=split(s,",")
n=ubound(ss)
debug.print "num=" & n+1
for i=0 to n
    debug.print ss(i)
next i

Answer 2

Split函数
      描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分：部分 描述 
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 
count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。 
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 
设置值compare参数的设置值如下：常数 值 描述 
vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。 
vbBinaryCompare 0 执行二进制比较。 
vbTextCompare 1 执行文字比较。 
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。 

Answer 3

那我怎么知道数组的大小呢，我还要通过数组动态生成SQL语句！例如：select * from talbe where x(3)=value and x(4)=value等等！

Answer 4

UBound 函数
LBound 函数
Split  函数

Answer 5

哎呀......
下面的n=ubound(ss)，n+1即数组大小！dim s as string,ss() as string,i as integer,n as integers="a1,aa2,aaa3,b4,bb5,bbb6,c7,ccc8"ss=split(s,",")
n=ubound(ss)
debug.print "num=" & n+1
for i=0 to n
    debug.print ss(i)
next i

Answer 6

同意：bdxzq(思考) 
先用Split 
然后用ubound

Answer 7

dim s as string,ss() as string,i as integer,n as integers = "a1， aa2， aaa3， b4， bb5， bbb6， c7， ccc8"'去处空格
s = replace(s," ","")ss = split(s,",")
n = ubound(ss)