помогите с vba (ms 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 
 
как исправить ошибку?

Lika Len · Accepted Answer

Проверьте Sentences.Count 
скорее всего у Вас предложений меньше, чем Вы выбираете по их порядковому номеру