Consulta: Función Split

[jack06]

Nuevamente molestandolos, como puedo extraer cierto numero con el Split. Normalmente voy a usar ese formato como muestro abajo

Código [Seleccionar] Expandir

Número: 5 - 08/05/2017 - ENTREGADO

Lo que deseo obtener es solo el numero 5, siempre extraer despues de que dice Número: osea la que se encuentra en medio del : y - como haría?

[Shell Root]

Algo simple y básico,  

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim oExpression: oExpression = "Número: 5 - 08/05/2017 - ENTREGADO"
Dim oResult

' Primero un Split separando el caracter -, y selecciono el primer valor
oResult = Split(oExpression, "-")(0)

' Otro Split ahora separando por el caracter : y selecciono el 2do valor
oResult = Trim(Split(oResult, ":")(1))

MsgBox oResult

O todo junto,

Código (vb) [Seleccionar] Expandir

oResult = Trim(Split(Split(oExpression, "-")(0), ":")(1))

[jack06]

Si amigo gracias, igual lo habia resuelto asi, bueno parecido a tu ejmplo

Código [Seleccionar] Expandir

Dim Cadena As String
Dim ExtraCadena() As String

Cadena = "Número: 5 - 08/05/2017 - ENTREGADO"

ExtraCadena= Split(Cadena, " ")

MsgBox ExtraCadena(1)

[Shell Root]

Si todo tuviera el mismo formato, sí, pero por ejemplo:

Código (vb) [Seleccionar] Expandir

' Número:  5 - 08/05/2017 - ENTREGADO {UN Espacio}
' Número: 5 - 08/05/2017 - ENTREGADO {UN Tab}

[jack06]

Si todo tuviera el mismo formato, sí, pero por ejemplo:

Código (vb) [Seleccionar] Expandir

' Número:  5 - 08/05/2017 - ENTREGADO {UN Espacio}
' Número: 5 - 08/05/2017 - ENTREGADO {UN Tab}

Si tiene el mismo Formato es por eso que lo hice de esa forma, de igual manera con tu ayuda ya tengo mas claro el tema y hay varias opciones por escoger, muchísimas gracias por tu tiempo amigo.