Visual Basic - Error al contar items en un listbox

Tengo un listbox y dos botones para subir y bajar, pero al momento de llegar al ultimo de "n" items me marca un error:
*InvalidArgument=El valor de '4' no es válido para 'SelectedIndex'.*

el codigo que tengo es este

If lstarea.Items.Count <= 1 Then
ElseIf lstarea.SelectedIndex = lstarea.Items.Count Then
lstarea.SelectedIndex = 1
Else
lstarea.SelectedIndex = lstarea.SelectedIndex + 1
End If

Espero puedan ayudarme , Gracias.

Comprueba que el valor del SelectedIndex no sea mayor que el número de Items ahí

lstarea.SelectedIndex = lstarea.SelectedIndex + 1

tiene 4 items