Visual Basic - MID HASTA UN CIERTO CARACTER

Hola a todos, aca les va mi duda.... a ver si alguien se le ocurre algo o sabe como es.

Tengo un Textbox en el cual tengo el siguiente texto "Orden P 54 - VIERJAMED", el cual puede variar el número (54) por cualquier otro y el nombre (VIERJAMED) por cualquier otro.

Lo que necesito es leer el número, para grabarlo en una var. Hasta ahora tengo el siguiente code

------------------------------------------------------------------------------------------------------------
Proto = Mid(Text1, 9, 2)
------------------------------------------------------------------------------------------------------------
Que hago que del caracter 9, oesa después de "Orden P " que lea 2 caracteres. Hasta ahí perfecto.

PROBLEMA:'si el númro llega a ser de 3 cifras me leería 2 nomás.

PREGUNTA: Hay algo cómo para que lea el número hasta el caracter " -" ???

Yo probé con ..... Proto = Mid(Text1, 9, " -"), pero no paso nada.

please help !!!

gracias y nos vemos

Javier ;)

Revisa la función InStr:

InStr(p,"-")

Para el caso que planteas:

Val(Replace(Left(p,InStr(p,"-")-1),"Orden P",""))