VB to Select & Print Data following Occurrences in a String

[SStrange]

So I have some VB to count the number of occurrences of groupings of characters. What I need to do now is select each of them and have them print the text. To be more specific, I had instances of carriage returns and hard returns in a data string. To be able to select within the string, I removed one character and replaced the other with a separate special character. That allowed me to find the beginning of the individual strings by using the special character (specifically CHR(8)). Basically now there is a string in my data that is (if you use this formula in excel) =CHAR(8)&"A1:". the thing is there could be 5-80 occurrences in the strings. I want it to pull the data for each one selecting as below....

A1: (1) 12345
A1: (2) 13524
A1: (3) 12453
A1: (4) 12534
A1: (5) 31425
etc...

Any help you can offer would be appreciated.

Thanks

 

[ZVI]

See if this helps

Sub Test1()
 
  ' Each block of elements is separated by vbCR
  ' Each element (line) in block is separated by vbLF
  ' Each data value in element is separated by Chr(42) (symbol "*")
  ' Structire of the element: "Id*Value1*Value2* ..."
 
  Const BlockSep = vbCr
  Const LineSep = vbLf
  Const ValueSep = "*"
 
  Dim Serial As String, TheDate  As String
  Dim TestData As String, RetData As String
  Dim i As Long
  Dim a, b
 
  Serial = "12345"
  TheDate = "1/1/2016"
 
  TestData = _
    "A1*1*100*12345*65482" & LineSep & _
    "A2*321654*44545*65421*12345" & LineSep & _
    "A3*1000*1001*1002*1003" & LineSep & _
    "A4*32151*65481*654214*54127" & LineSep & _
    "A5*64821*65412*68251*12426" & LineSep & _
     BlockSep & _
    "A1*2*100*12345*65482" & LineSep & _
    "A2*321654*44545*65421*12345" & LineSep & _
    "A3*1000*1001*1002*1003" & LineSep & _
    "A4*32151*65481*654214*54127" & LineSep & _
    "A5*64821*65412*68251*12426" & LineSep
 
    TestData = Replace(TestData, LineSep, " ")
    a = Split(TestData, BlockSep)
    ReDim b(0 To UBound(a))
    For i = 0 To UBound(a)
      b(i) = Serial & " " & TheDate & " " & Trim(a(i))
    Next
    RetData = Join(b, vbLf)
   
    Debug.Print RetData
   
End Sub