Substring extraction without "Text to Columns"

Hi all,
I am unsure how to manipulate substrings without performing "text to columns".
Background:
Our sheet looks for and extracts data from a source based on unique identifiers. At times, the source will change the unique identifiers. Eg: v123456 may change to v654321. I have created some code that performs a cansim number validation check. If the number exists, continue with the update process. If it does not exist, the code will reference the title that corresponds to the cansim number. Eg: v654321 represents "Copper Prices" (the title). If the title is found from the source file, I want to update our cansim number to match the source cansim number. The problem is, the source cansim number is embedded in the source title. Eg: Title "Copper Prices [1003] (v654321)", which is located in one cell. I want to extract just the "v" series number (v654321) and not the rest. How can I extract just the "v" series?
Hopefully I have described this well enough.

Best Regards:

Hi Andrew, thanks for your input. Yes, the v-numbers is always in brackets from the source. I tried what you suggested but it creates a compile error stating "A1" variable cannot be defined. Is your suggestion a function for the spreadsheet side of things? I'll be completely honest, I am not very well versed with the spreadsheet side, I've taken on Excel programmatically, not the other way around. Anyhow, here is the code I am trying to apply this to:

For Each Cell In Application.Workbooks("IndustryPriceIndexCopy.xls").Worksheets("Mthly").Range("Cansim")
    For iCount = 1 To Windows(fName).Application.Sheets.Count
        Set CansimCell = Application.Workbooks(fName).Sheets(iCount).Cells.Find(Cell)
        If CansimCell Is Nothing Then
            Set CansimCell = Application.Workbooks(fName).Sheets(iCount).Cells.Find(Cell.Offset(0, -2))
            If Not CansimCell Is Nothing Then
                Cell.Value =       :confused:'''''''This is where the value needs to change, if need be!'''''':confused:
                MsgBox Cell.Value
            End If
        End If
    Next iCount
Next Cell

I see the confused emoticon does not work when inside code tags.

on error resume next
For Each Cell In Workbooks("IndustryPriceIndexCopy.xls").Worksheets("Mthly").Range("Cansim")
    For j = 1 To Windows(fName).Application.Sheets.Count
      if not Workbooks(fName).Sheets(iCount).Cells.Find(Cell) is noting then msgbox= split(Workbooks(fName).Sheets(iCount).Cells.Find(Cell.Offset(0, -2)),"(v")(1)
    Next 
Next

Thanks Marvin for the link, I used this and it works:

If Not CansimCell Is Nothing Then
Cell.Value = Right(CansimCell, 10)