Como recuperar parte del string de un List1?

[seba123neo]

proba esto haber si entendes..

Código vb:

Option Explicit
 
Private Sub Form_Load()
   With List1
      .AddItem "01-productoA"
      .AddItem "02-productoB"
      .AddItem "452-productoC"
      .AddItem "800-productoD"
      .AddItem "8001-productoE"
   End With
End Sub
 
Private Sub List1_Click()
   Dim vArray() As String
 
   vArray = Split(List1.List(List1.ListIndex), "-")
   MsgBox vArray(1)
End Sub
 

saludos.