Podrías hacerlo así:

'Primero q revise si hay 9 ítems asi
If List1.ListCount <> 9 Then
MsgBox "Solo deben existir 9 ítems en la lista"
Exit Sub
End If
'Si hay los 9 ítems q revise si estan los números del 1 al 9
Dim iActual As Integer
Dim i As Integer
Dim bFlag As Boolean
iActual = 1
Do Until iActual = 10
bFlag = False
For i = 0 to List1.ListCount - 1
If iActual = List1.List(i) Then bFlag = True: Exit For
Next
If bFlag = False Then
MsgBox "Hace falta el número " & iActual & " en la lista."
Exit Sub
Else
iActual = iActual + 1
End If
Loop
MsgBox "Encontrados los números del 1 al 9 correctamente."


Espero te sirva mi respuesta, creo q es lo q necesitas. Cualquier duda la preguntas en el foro.

__________________
HERNAN GUILLERMO SIABATO M.
Medicina - UPTC
chronos682@hotmail.com