Como recuperar parte del string de un List1?

[FTech]

Tal cual lo hizo seba.
También aqui te dejo un código que copia el contenido en el listbox a una caja de texto

Código vb:

Private Sub Command1_Click()
Dim myarray() As String
For i = 0 To List1.ListCount - 1
    myarray = Split(List1.List(i), "-")
    Text1.Text = Text1.Text & vbNewLine & myarray(1)
Next
End Sub
 
Private Sub Form_Load()
List1.AddItem "1-ARGENTINA"
List1.AddItem "2-COLOMBIA"
List1.AddItem "3-ECUADOR"
List1.AddItem "4-BRASIL"
Text1.Text = ""
Command1.Caption = "SPLIT"
End Sub
 

Un saludo