msgbox ved subscript out of range

Ved nedenstående kode vil jeg gerne have tilføjet en msgbox (MsgBox "Du skal vælge mellem 1 og 8") i tilfælde af, at valget er under 1 eller over 8. Hvordan kan jeg gøre det? Hvor skal den sættes ind?
Sub arraytest2()
Dim titel(1 To 8) As String
Dim svar As String
Dim hvilkenTitel As Integer
Dim valg As Integer
on error resume next
titel(1) = "abe"
titel(2) = "bet"
titel(3) = "carmen"
titel(4) = "Dorthe"
titel(5) = "Erik"
titel(6) = "Finn"
titel(7) = "Georg"
titel(8) = "Henrik"
Do
hvilkenTitel = CInt(InputBox(prompt:="Angiv nummer (1-8)", Title:="Arraytest2"))
svar = MsgBox(prompt:="Nummeret hedder " & titel(hvilkenTitel), Title:="Arraytest2", buttons:=vbRetryCancel)
Loop Until svar = vbCancel
End Sub
---
MsgBox "Du skal vælge mellem 1 og 8"