Hola,
Puedes utilizar la funcion instr que te devolvera la posicion del caracter dentro de la cadena, se me ocurre que puedes buscar el "-"
cadena = "00000000-xxx"
prefijo = instr(1, cadena, "-")
y de ahi hacer tus calculos, tambien puedes hacerlo para los ultimos 3 numeros con la funcion instrRev que hace lo mismo pero de atras para adelante.
http://www.oohforsale.com/VBScript/InStr.htm
Salu2,