Вывод всех найденых RegExp - VB

Формулировка задачи:

Здравствуйте! Помогите, нужно из переменной вытянуть все что находится между

abc

: и

. Данные там смешанные всякие, при помощи RegExp думал получится но плохо разбираюсь или не тот способ нашел, код ниже который использую выдирает только одну строчку из

abc

: и

.. Долго искал и не раз в инете о способе как все вытащить при помощи этого кода или еще какова но ничего не нашел) Заранее спасибо!

Dim myRegExp1 As New RegExp
 myRegExp1.MultiLine = True
 myRegExp1.Global = True
 myRegExp1.Pattern = "abc:((.|\n)*?)" & Chr(34) & ""
Dim regul1 As String
Dim aMatch1 As Match
Dim colMatches1 As MatchCollection
Set colMatches1 = myRegExp1.Execute(result)
For Each aMatch1 In colMatches1
regul1 = aMatch1.SubMatches(0)
Next aMatch1
 
Text1.text = regul1

Текст в переменной примерно такой:

v02("[B]abc:INFO333"[/B])mhf86hjZAzje1gIu_RsfulZH48JQIiidDCOY4p9U.8bc94014b057120dfbe3bd6f9c8466ab6tFfuTeVD4jaxywoSUvtJXex15Wcbo_3OH5XnapypRBagkgBNhAuLSkOTaphjXB&amp;data=UlNrNmk5WktYejR0eWJFYk1LdmtxbXUzS2VDVjJGcHlWdEN3RG1BME("[B]abc:INFO111"[/B])Q3TDlnaW1Gby1FbVFTemZVa3dUc3VSNDR0Y3REX0w5a1RIMTkyZHZXVTk5WmNJNlEtdjZZRnJNd0RfWFRMSFc2LUlrcndMMUtWMGFMU09QS3lPQ3J1alampc8d4da42e5Y0DBWFJ4BWM_uhLTTxE5azF1M5FPE2W("[B]abc:INFO222"[/B])qZrve98ytEt8fHEE8mD9OUn-ynMd11a3PO5C-lx4a32xi5ET4fR-p4fRF64wDsTbRHz8-PZjpdt3X4hGw4ACeL7tvMX5tHZa4lShJs-42fOIsWd7OtdOpnqxaCCNd5fYodxDVCD743Tis_sLRILHrhBB5hhW8e10HrLIjexpssWWDdGHEUnPEWX4UmMkzmmrP5_PWL3jAevnw7B2RrMwriel7yRrxGfT0873hMAHHuxfsGErUzin6OqrCmPWI4h2cBZWqxFEjF1XDYvQhP5eabhqjT1kiK1QU4rmN3NGCvJ6foEv1yusmWoqbGoZZvZXXGeYyZWlpzcrwfqvQjAomgJf0LMoNGZWhdCrLBo7bKUzCduN7JD0XpmmYXWoJ9C5cNCueXr-76L2qX9rcbMYm9_3FmINie_XGi3Kucv1JldjZTOh2vhcOUc38Mjqo5VWQUnVWgxlo2HC("[B]abc:INFO444"[/B])nkqxtcsFfZTlfh7E_fR-ErVGV_xDQorjY4mGPRjlSKyJlbRuxUg7kv3-HD3rXGumT6obkg8m_lFK54cwe3M4OgjCDEYP;

Решение задачи: «Вывод всех найденых RegExp»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Sub Exec(myStr$)
    Dim aMatch1     As Object
    Dim myRegExp1   As Object
    Set myRegExp1 = CreateObject("VBScript.RegExp")
 
    With myRegExp1
        .MultiLine = True
        .Global = True
        .Pattern = "abc:(.*?)\" & Chr(34)
    End With
 
    For Each aMatch1 In myRegExp1.Execute(myStr)
        Debug.Print aMatch1.SubMatches(0)
    Next
End Sub
 
Private Sub Form_Load()
    Dim myStr       As String
    
    myStr = myStr & "v02(""[B]abc:INFO333""[/B])mhf86hjZAzje1gIu_RsfulZH48JQIiidDCOY4p9U.8bc94014b057120dfbe"
    myStr = myStr & "3bd6f9c8466ab6tFfuTeVD4jaxywoSUvtJXex15Wcbo_3OH5XnapypRBagkgBNhAuLSkOTaphjXB&data=U"
    myStr = myStr & "lNrNmk5WktYejR0eWJFYk1LdmtxbXUzS2VDVjJGcHlWdEN3RG1BME(""[B]abc:INFO111""[/B])Q3TDlnaW1G"
    myStr = myStr & "by1FbVFTemZVa3dUc3VSNDR0Y3REX0w5a1RIMTkyZHZXVTk5WmNJNlEtdjZZRnJNd0RfWFRMSFc2LUlrcndMMUt"
    myStr = myStr & "WMGFMU09QS3lPQ3J1alampc8d4da42e5Y0DBWFJ4BWM_uhLTTxE5azF1M5FPE2W(""[B]abc:INFO222""[/B])"
    myStr = myStr & "qZrve98ytEt8fHEE8mD9OUn-ynMd11a3PO5C-lx4a32xi5ET4fR-p4fRF64wDsTbRHz8-PZjpdt3X4hGw4ACeL7"
    myStr = myStr & "tvMX5tHZa4lShJs-42fOIsWd7OtdOpnqxaCCNd5fYodxDVCD743Tis_sLRILHrhBB5hhW8e10HrLIjexpssWWDd"
    myStr = myStr & "GHEUnPEWX4UmMkzmmrP5_PWL3jAevnw7B2RrMwriel7yRrxGfT0873hMAHHuxfsGErUzin6OqrCmPWI4h2cBZWq"
    myStr = myStr & "xFEjF1XDYvQhP5eabhqjT1kiK1QU4rmN3NGCvJ6foEv1yusmWoqbGoZZvZXXGeYyZWlpzcrwfqvQjAomgJf0LMo"
    myStr = myStr & "NGZWhdCrLBo7bKUzCduN7JD0XpmmYXWoJ9C5cNCueXr-76L2qX9rcbMYm9_3FmINie_XGi3Kucv1JldjZTOh2vh"
    myStr = myStr & "cOUc38Mjqo5VWQUnVWgxlo2HC(""[B]abc:INFO444""[/B])nkqxtcsFfZTlfh7E_fR-ErVGV_xDQorjY4mGPR"
    myStr = myStr & "jlSKyJlbRuxUg7kv3-HD3rXGumT6obkg8m_lFK54cwe3M4OgjCDEYP;"
    
    Exec myStr
End Sub
                        