CATIA VBA二次开发

CATIA VBA二次开发
#有没有朋友知道，如果想要给列表（listBox1）控件赋予多个选项（如下图），然后在选中的选项当中，赋予相关连的参数赋予值比如选定了2.1 20 300.2 那么选定这个选项之后，直接赋予值给“a=2.1，b=20.2，c=300.2”，应该如何用代码去实现呀

如下我用比较复杂的代码去实现了，但过于复杂。另外，是否可以用excel表格去连接起多个选项列表的控制该如何让去实现
代码见下问

这个简单
arr = Split(listBox1.Text, ",")
a = Val(arr(0))
b = Val(arr(1))
c = Val(arr(2))