No ideas for Load logic

Question

I recently asked for help on this topic> Separate all items from a string

The problem is, my game is an offline Card-Game that has an "inventory" of cards, only I have no idea how I actually "put the cards in the inventory". I initially thought to store the cards through numbers, as I show in the topic above.

Only how I "keep" the in-game cards for me to use?

I have a form where I call "My Time" the 5 slots of the cards and I select (in each slot) a card through a combo-box, are divided into:

Top JG Mid Adc Sup

Each is a combobox.

So far I have a code that carries a save that divides the cards through numbers, now, as I do to turn the numbers into data for the combobox?

The load code is this:

  Dim bar() As String
    Dim foo() As String
    Dim i As Byte

    bar = Split("Nome|1,2,3,4,5,6,7,8,9|59000|50%", "|")

    foo = Split(bar(1), ",")

    For i = LBound(foo) To UBound(foo)
      Dim cartaAtual as string = foo(i)
    Next i

How do I divide number by number and put them in Combobox? I need help finding a logic.