Como recuperar parte del string de un List1?

[FTech]

Exacto seba a eso me refería aqui te dejo un ejemplo:

Código VB:

Private Sub Command1_Click()
Dim cadena As String
cadena = Text1.Text
myarray = Split(cadena, "-", -1, vbTextCompare)
Label1.Caption = myarray(1) ' Devuelve lo que está luego del guión
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
Command1.Caption = "Split"
End Sub