VBa-Excel. Como extraer un numero de un texto

Estoy creando una macro, y tengo un problema a la hora de extraer el número. La palabra que precede y la que sigue al número es siempre la misma, no así su posición en la cadena. Con estos datos y la función mid intento extraer el número de caracteres (hallando la posición de las palabras que la rodean y restando sus valores), pero debido al punto de los miles no me lo extrae bien. ¿Qué puedo hacer?:
Sub extraer_precio()
Dim texto_jug As Variant
Dim pos_por As Integer
Dim pos_€ As Integer
Dim ini_mid As Integer
Dim long_mid As Integer
texto_jug = ActiveSheet.Range("b2")
pos_por = InStr(11, Range("b2"), "por ")
pos_€ = InStr(11, Range("b2"), "€")
ini_mid = pos_por + 4
long_mid = pos_€ - pos_por - 4
ActiveSheet.Range("g2").Value = pos_por
ActiveSheet.Range("h2").Value = pos_€
ActiveSheet.Range("j2").Value = ini_mid
ActiveSheet.Range("k2").Value = long_mid
ActiveSheet.Range("i2").Value = Mid(texto_jug, ActiveSheet.Range("j2").Value, ActiveSheet.Range("k2").Value)
End Sub