codice:
mid$(<tuastringa>,1,inStr(1,<tuastringa>,"-")-1)
.
In poche parole ricava tutte le lettere di una stringa (mid$) partendo dalla lettera 1 fino al carattere precedente al trattino (-).

Ciao