CATIA VBA二次开发

朋友们，帮忙看看，以下图一代码对应的图二界面该如何修改才能像图三那样呀，只用一个listbox，在同一行选择并且还能赋值给length1和length2