Siempre y cuando tengan siempre el 'guión' como carácter de separación, porque si no lo tienen, a veces funcionará, y a veces no, puedes utilizar SPLIT para separar datos en un array.
Código:
dim p() as string
p = Split(cadena, "-")
en p(0) tienes el nombre y en p(1) el número, ambos en tipo String.
Lógicamente este código lo debes repetir por cada uno de ellos.