SoloCodigo

Creo haber entendido que quieres tomar el valor 1 y dos de la cadena "año1-año2".Pues para ello cuenta los caracteres de la cadena con la función len(cadena) y despues ves tomando caracter a caracter   y comprueba si ese caracter es numerico, si lo es lo guardas en una variable y si no pasas a comprobar el siguiente.Mas o menos asi:
 dim n as integer 'guarda el numero de caracteres de la cadena
 dim sub as string 'almacenará el caracter a comparar
 n=len(cadena) 'cuenta las letras
 sub=substr(cadena,1,1)    ' cogemos el primer caracter empezando por la
 while i <= n                                              posicion 1
if isnumeric(sub) then
  ' guardar caracter
else
  i=i+1
end if
wend

O si lo que quieres es buscar el 1 y el 2 busca directamente la subcadena (1 ó 2) dentro de la cadena "año1-año2".
 
No se si me he explicado bien, espero que si.Suerte.

Gracias Jonmi, era justo lo que necesitaba...te pasaste!!!!
la funcion mid lo resolvia todo...

Gracias de nuevo