Ciao, altra alternativa, usare la funzione Split.
codice:
Dim t As String
Dim tmp() As String
Dim numero As Long

t = "value='12345' abc"
tmp = Split(t, "'")
numero = tmp(1)
Anche se in informatica niente deve essere dato per scontato...in questi esempi, è dato per scontato che nella stringa, gli unici apici siano quelli che delimitano il numero.