VBA Split строки в заданном диапозоне

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

Доброго Вам времени суток
Уважаемые господа
при наличии времени прошу Вас помочь
есть файл Word с такой структурой
1) Вопрос теста Chr(11))
A) Ответ 1 Chr(11)
B) Ответ 2 Chr(11)
C) Ответ 3 Chr(11)
D) Ответ 4 Chr(11)
E) Ответ 5 Chr(11)
вот таким кодом я разбиваю всю конструкцию и получаю в переменные отдельные строки

s  
 a()  

kolvospiska = ActiveDocument.ListParagraphs.Count
 
i = i + 
 
 i >  
MsgBox 

s = ActiveDocument.ListParagraphs(i).Range
a = Split(s, Chr())

l1.Caption = a()          
l2.Caption = a()          
l3.Caption = a()          
l4.Caption = a()          
l5.Caption = a()          
l6.Caption = a()          

 

как видно из кода ограничителем Split является Chr(11)
подскажите пожалуйста как изменить этот код так
чтобы в первую переменную садились данные находящиеся между "1)" и Chr(11)
во вторую переменную данные находящиеся между "A)" и "B)"
в третью ... между "B)" и "C)"
в четвертую ... между "C)" и "D)"
в пятую ... между "D)" и "E)"
в шестую ... между "E)" и Chr(11)
С Уважением
Намик

Решение задачи: «VBA Split строки в заданном диапозоне»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> CommandButton4_Click()
<font color="blue">Dim</font> s <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> a() <font color="blue">As</font> <font color="blue">String</font>

kolvospiska = ActiveDocument.ListParagraphs.Count
 
i = i + <font color="darkblue"><b>1</b></font>
 
<font color="blue">If</font> i > kolvospiska <font color="blue">Then</font>
MsgBox <font color="teal">"Конец"</font>
<font color="blue">Else</font>
s = ActiveDocument.ListParagraphs(i).Range
g = Replace(s, <font color="teal">"A)"</font>, <font color="teal">"@"</font>)
g = Replace(g, <font color="teal">"B)"</font>, <font color="teal">"@"</font>)
g = Replace(g, <font color="teal">"C)"</font>, <font color="teal">"@"</font>)
g = Replace(g, <font color="teal">"D)"</font>, <font color="teal">"@"</font>)
g = Replace(g, <font color="teal">"E)"</font>, <font color="teal">"@"</font>)

a = Split(g, <font color="teal">"@"</font>)

l1.Caption = a(<font color="darkblue"><b>0</b></font>)
l11.Caption = a(<font color="darkblue"><b>1</b></font>)
l2.Caption = a(<font color="darkblue"><b>2</b></font>)
l3.Caption = a(<font color="darkblue"><b>3</b></font>)
l4.Caption = a(<font color="darkblue"><b>4</b></font>)
l5.Caption = a(<font color="darkblue"><b>5</b></font>)
<font color="#00AA00">Rem MsgBox a(6)</font>


<font color="blue">End</font> <font color="blue">If</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        