Finding text reference in a cell and obtaining 13 characters after this same reference.

[Noodles90]

Hello,
I have previously made a post which in which my question was not very well formulated.
In fact, the problem I have is much simpler.
How to write a vba command to return in a target cell, the subsequent 15 digits in text after a keyword is found in the text contained in a specific single cell?

Example​	Result for "Intref" word:​
Some text here written Intref: 05897423654422; v 541 n Some more text for the example​	05897423654422​

I have searched, but I am not being able to make it work correctly.
With formulas this is relatively easy to do, but for this particular application I needed it in vba.
Can anyone advise?

 

[JEC]

For Example. You can use a loop for multiple cells.

Sub jvr()
 With Cells(1, 5)
   .NumberFormat = "@"
   .Value = Left(Split(Cells(1, 1), "Intref: ")(1), 14)
 End With
End Sub

 

[Noodles90]

For Example. You can use a loop for multiple cells.

Sub jvr()
 With Cells(1, 5)
   .NumberFormat = "@"
   .Value = Left(Split(Cells(1, 1), "Intref: ")(1), 14)
 End With
End Sub

@JEC Thanks a lot, it was exactly this I was searching for!

 

[JEC]

You're welcome!