Visual Basic - URGENTE: Nº archivos en directorio

Que comando o API de VB me puede servir para obtener el número de archivos contenidos en una carpeta del sístema. Necesito que lo haga sin utilizar un Dir para leer todos uno por uno.

Dim fs As Object
Dim d As Object
Dim Ruta As String

Ruta = "D:\Pruebas"

Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetFolder(Ruta)

MsgBox d.Files.Count

Set fs = Nothing
Set d = Nothing

End Sub

Muchas Gracias por tu ayuda.