cortar cadenas

mati
20 de Abril del 2005
hola
yo tengo en un combo un codigo y un nombre y solo quiero extraer el codigo estan separados por - que funcion debo usar
gracias por adelantado

Fightinghawk
20 de Abril del 2005
dim cod as string
dim i as byte
i=1
while mid(combo1.text,i,1) <> "-"
cod = cod & mid(combo1.text,i,1)
i = i +1
wend