Ajuda com ListBox !

[PBJ]

Prezados,

Peço ajuda para solucionar uma rotina de testes entre 3 listBox, onde o usuário no caso de esquecer de selecionar um deles seja avisado.

Um dos listBox é MultiSelect e todos são ListStyleOption.

A rotina que criei abaixo funciona somente com os primeiros itens de cada listBox se selecionar a partir do segundo item ele informa como falso.

Como poderia resolver isso?

Private Sub CommandButton1_Click()

Dim i As Integer

Dim j As Integer

Dim r As Integer

For i = 0 To ListBox1.ListCount - 1

For j = 0 To ListBox3.ListCount - 1

For r = 0 To ListBox4.ListCount - 1

If ListBox1.Selected(i) = False Then

MsgBox "ListBox1 falta selecionar"

ElseIf ListBox3.Selected(j) = False Then

MsgBox "ListBox3 falta selecionar"

ElseIf ListBox4.Selected® = False Then

MsgBox "ListBox4 falta selecionar"

End If

Exit Sub

Next r

Next j

Next i

End Sub

agradeço ajuda.