Splitting and extracting characters from an excel string based on a character in a variable location

[APInfa]

I am attempting to create a code which will split a naming tag in different columns. I have been trying to use excel commands however I thing VBA might be the better option. I am attempting to input naming tags into a PI and I need to make the value of one character variable dependent on a PI command which I have working. Examples include BF_VYT1058, BF_TT1028A, and BF_TT1028B. What makes this difficult is I need to remove that "1" and each tag has a variable quantity on characters (as seen from the names) I need to extract the BF_TT or BF_VYT and the 058, 028A, or 028B from the tags. What commands could I use to extract this or what VBA code could I use?

PS: I can't just remove 1s specifically because there might be number code with another 1 (example: 1051). My final code is supposed to look like BF_VYT%@Selector%058 (when it is in PI).

Any and all help would be greatly appreciated.

 

[Snakehips]

@APlnfa Does this help?

TEST FILE (Recovered).xlsm
	A	B
3	BF_TT1028A,	BF_TT%@Selector%028A,
4	BF_VYT1050	BF_VYT%@Selector%050
5	BF_VYT1051	BF_VYT%@Selector%051
Sheet1

Cell Formulas
Range	Formula
B3:B5	B3	=SUBSTITUTE(A3,1,"%@Selector%",1)

 

[APInfa]

@APlnfa Does this help?

TEST FILE (Recovered).xlsm
	A	B
3	BF_TT1028A,	BF_TT%@Selector%028A,
4	BF_VYT1050	BF_VYT%@Selector%050
5	BF_VYT1051	BF_VYT%@Selector%051
Sheet1

Cell Formulas
Range	Formula
B3:B5	B3	=SUBSTITUTE(A3,1,"%@Selector%",1)

Unfortunately this would replace the "1" everywhere within the left column. While this isn't a problem for the examples I posted, there are other tags where this would not be a solution.

 

[Fluff]

Unfortunately this would replace the "1" everywhere within the left column.

That is not the case, it only replaces the 1st 1 in the string, as you can see in B5

 

[veyselemre]

Hi,

Sub test()
    Dim i&
    [b:b].ClearContents
    With CreateObject("Vbscript.Regexp")
        .Pattern = "(\D{2}\_\D{2,3}).(.+)"
        For i = 3 To Cells(Rows.Count, 1).End(3).Row
            If .test(Cells(i, 1).Value) Then
                Cells(i, 2).Value = (.Replace(Cells(i, 1).Value, "$1%@Selector@%$2"))
            End If
        Next i
    End With
End Sub