Find a character and assign a variable to that character and the following 15 characters

[S Oberlander]

I am trying to find the first "5" in a text string and assign a variable that should include the 5 and the 15 characters following it.

 

[Fluff]

Maybe

   Dim Txt As String, Txt2 As String
   
   Txt = "abc123589pwertyukfskffk"
   Txt2 = Mid(Txt, InStr(1, Txt, "5"), 16)

 

[S Oberlander]

Maybe

   Dim Txt As String, Txt2 As String
  
   Txt = "abc123589pwertyukfskffk"
   Txt2 = Mid(Txt, InStr(1, Txt, "5"), 16)

Thanks!
edited to:

   Dim Merch As String, MerchId As String
   
   Merch = Range("A1")
   MerchId = Mid(Merch, InStr(1, Merch, "5"), 16)

 

[Fluff]

You're welcome & thanks for the feedback.