Если есть известный Знак между двумя пунктами, которые вы хотите, то вы можете использовать
Dim myString as string = "Item1_Item2"
Dim MyItems() as string = split(myString,"_")
Dim ItemA as string = MyItems(0)
Dim ItemB as string = MyItems(1)
Это один из способов получить два ваших предмета в строку
Если вы знаете, что это за Предметы, вы можете использовать
Cint(MyItems(x))
Cbool(MyItems(x))
Или какое конвертирование тебе нравится
Я действительно не знаю, близок ли я к вашему вопросу