Thread: Replace every other space in a string with "|"

Hello all,
I need to programatically replace every other space in a cell with a pipe symbol, in order to seperate stock symbols and their market indicators from each other. For example, right now I have 3,500 rows with data that looks like this:
BBCA IJ BZG2 GR PBCRF US

which I need to turn into this
BBCA IJ | BZG2 GR | PBCRF US

The length of the tickers is unpredicatble, but the pattern is consistent.

Any ideas?
Thanks!

Code:

Function OddPipes(s As String) As String
    Dim astr()      As String
    Dim i           As Long

    astr = Split(s, " ")
    For i = 1 To UBound(astr) - 1 Step 2
        astr(i) = astr(i) & " |"
    Next i

    OddPipes = Join(astr, " ")
End Function