Visual Basic - Dir()

Como puedo poner todos los *.ocx que estan en una carpeta en un list1 con Dir("*.ocx") siendo que solo me devuelve el primer archivo ocx.
muchas gracias

tienes que hacer esto

Sub RepasarCarpeta()
Dim strArchivoExcel As String
Dim strNombreCarpeta As String

'carpeta a repasar
strNombreCarpeta = "c:\"

'preparar carpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.ocx")

'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
list1.additem strArchivoExcel
strArchivoExcel = Dir
i = i + 1
Loop

End Sub

GRACIAS JAIME DE DIEZ!