Помогите с VBA(MC Word 2007)

Question

Private Sub CommandButton1_Click() 
Dim n As Byte 
flag = True 
n = NomerVopros(13) 'Выбор случайным образом номера вопроса 
vopros = ActiveDocument.Sentences(n).Text 
TextBox1 = vopros 
If flag Then 
Frame1.Visible = True 
CommandButton3.Visible = True 
CommandButton4.Visible = True 
CommandButton5.Visible = True 
End If 
End Sub 
 
В строчке vopros = ActiveDocument.Sentences(n).Text выдает ошибку 5941 "Запрашиваемый номер семейства не существует" 
 
Вот функция Nomervopros(m) 
 
Function NomerVopros(m) 
Randomize Timer 
NomerVopros = Int(Rnd * m) + 5 
End Function 
 
как исправить ошибку?

Екатерина · Accepted Answer

Вероятно, запрашиваемый номер семейства не существует. Стоит проверить, существует ли он, хотя я склонен предполагать, что нет.