Extract a list of codes from data

I've got data such as the following:

Resources Nl Materials0.0000ACSC:\Stocks\All Acrux Limited Pharmaceuticals0.0000ACRC:\Stocks\All Adamus Resources Limited Materials-2.5317ADUC:\Stocks\All Adelaide Brighton Limited Materials2.4242ABCC:\Stocks\All Aditya Birla Minerals Limited Materials1.1236ABYC:\Stocks\All Advanced Braking Technolo Automobile & Co3.5714ABVC:\Stocks\All Advanced....

and I want to extract a list of the three-letter alphabetic codes which appear directly to the left of every 'C:\' symbol - anyone know a formula or VBA code which could do this please? Thanks in advance.

Assuming the string in cell A1...

1st code: =MID(A1, FIND("C:\", A1)-3, 3)
2nd code: =MID(A1, FIND("||", SUBSTITUTE(A1,"C:\","||",2))-3,3)
3rd code: =MID(A1, FIND("||", SUBSTITUTE(A1,"C:\","||",3))-3,3)

If on the off chance you wanted a single delimited list then you could use a User Defined Function, eg:

Function GetCodes(rngText As Range, Optional strDelim As String = " ") As String
    Const cDelim = "C:\"
    Dim vData, vCodes, lngR As Long, lngC As Long, lngCode As Long
    If rngText.Cells.Count = 1 Then
        ReDim vData(1 To 1, 1 To 1)
        vData(1, 1) = rngText.Value
    Else
        vData = rngText.Value
    End If
    For lngC = LBound(vData, 2) To UBound(vData, 2) Step 1
        For lngR = LBound(vData, 1) To UBound(vData, 1) Step 1
            vCodes = Split(Application.Trim(vData(lngR, lngC)), cDelim)
            For lngCode = LBound(vCodes) To UBound(vCodes) - 1 Step 1
                GetCodes = GetCodes & strDelim & Right(vCodes(lngCode), 3)
            Next lngCode
        Next lngR
    Next lngC
    GetCodes = Replace(GetCodes, strDelim, "", 1, 1)
End Function

the above, stored in a standard module, would be called from a cell along the lines of:

=GETCODES(A1)

where A1 holds the string - the range you pass can encompass multiple cells (though it is assumed any multi cell range would be contiguous)