Imagino q lo q tienes en la lista son solamente los números del 1 al 9 o eso es lo q quieres tener, entonces para hacer cada una de las comprobaciones, te propongo lo siguiente:

1. Para saber si falta algún número se me ocurre q utilices lo siguiente:
Dim iCount As Integer
Dim i As Integer
Dim bResult As Boolean
iCount = 1
Do
bresult = False
For i = 0 to List1.ListCount - 1
If List1.List(i) = CStr(iCount) Then bResult = True: Exit For
Next
If bResult = False Then
'Significa q no esta ese número
'Aquí deberías colocar lo q quieras q haga el programa si no encuentra un número
End If
iCount = iCount + 1
Loop Until iCount = 10

2. Para saber si esta repetido un número puedes recorres la lista igual q en el ejemplo anterior comparando cada valor con cada uno de los números del 1 al 9.

3. Para comprobar si son números:
Dim i As Integer
For i = 0 to List1.ListCount - 1
If IsNumeric(List1.List(i)) = False Then
MsgBox "El elemento " & List1.List(i) & " no es un número."
End If
Next

4. Para saber si está en el intervalo:
Dim i As Integer
For i = 0 to List1.ListCount - 1
If Val(List1.List(i)) < 1 Or Val(List1.List(i)) > 9 Then
MsgBox "El elemento " & List1.List(i) & " no se encuentra entre 1 y 9."
End If
Next

La última no la entiendo: "Comprobar si están correctos los números de la Lista"???

Espero te sea de ayuda mi respuesta, cualquier cosa preguntas.

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