Visual Basic - como contar archivos de un determinada extencion

buenads deseo hacer un aplicacion en vb 6.0 que me cuente los archivos de una determinada extencion y saber cuanto pesan por ejm si tengo 100 con extencion xls saber cuanto pesan los 100 archivos me pueden ayudar soy nuevo en esto

Pon esta SUB en un modulo .BAS ...

''''''''''''''''''''
Public Sub Cuenta_Archivos(ByVal sPath As String, ByVal sExtension As String, _
ByRef TotalArchivos As Long, ByRef TotalBytes As Long)

Dim nFile As Integer, sFile As String

If Trim(sPath) = "" Then sPath = CurDir
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"

If Trim(sExtension) = "" Then sExtension = ".*"

If Left(sExtension, 1) <> "." Then
sExtension = "." & sExtension
End If

TotalArchivos = 0: TotalBytes = 0

nFile = FreeFile
sFile = Dir(Trim(sPath) & "*" & sExtension)

Do While sFile <> ""
Open sFile For Input As nFile

TotalArchivos = TotalArchivos + 1
TotalBytes = TotalBytes + LOF(nFile)
Close nFile

sFile = Dir()
Loop

End Sub
'''''''''''''''''''

Y la llamas desde donde quieras asi ...

Dim nArchivos As Long
Dim nBytes As Long

Call Cuenta_Archivos( "C:\Mis Documentos", "*.XLS", nArchivos, nBytes )

MsgBox "Tienes " & nArchivos & " Que Pesan " & nBytes