高手们，进来看看，能不能把这些代码给简化了？(就是看起来少些，简洁些)解决思路

高手们，进来看看，能不能把这些代码给简化了？(就是看起来少些，简洁些)
事实上不止这些数据，好多好多，Result有十几结果，也不止a,b,c这几个变量，
大概有a,b,c,d,e…………z,y,z   20几个变量

根据Result的不同结果，a,b,c……x,y,z赋予不同的值！

注意哦：赋予a,b,c……z,y,z的值是没规律的(下面的代码我只是为了表达简单)

        If   Result   =   0   Then
                a   =   1
                b   =   2
                c   =   3
        ElseIf   Result   =   1   Then
                a   =   11
                b   =   22
                c   =   33
        ElseIf   Result   =   2   Then
                a   =   111
                b   =   222
                c   =   333
        End   If

如果用这样的方式，代码好长啊··真不顺眼，有方法简洁些么？

------解决方案--------------------
定义2维数组
dim xx as long,key1(1 to 19,0 to 29) as long
'注：因为你说 “Result十几个结果”所以19满足要求
'另因为你说 “20几个变量” 所以这里是29
'首先初始化所有key1中的值 其中key1(x,0)为Result表示值，其他就是代表A,B,C,D..X,Y,Z的值
然后循环判断
for xx=1 to 19
if key1(xx,0)=result then exit for
'找到满足等于result值的一排数组key1(xx,1)~key1(xx,29)
next
'打印得到的a,b,c..x,y,z
for yy= 1 to xx
debug.print key1(xx,yy)
next