[VB6] contare file con estensione

[croccio]

ho necessità di contare dei file con una determinata estensioni all'interno di una penna usb. ho già fatto un funzione che mi conta tutti i file presenti nella penna (anche nelle sotto cartelle) e non so come adattare il codice per contarmi i file con una determinata estensione. l'estensione vorrei passarla come parametro mi aiutate cortesemente?

Function contaFile(ByVal StrFolder)

Dim fs 
Set fs = CreateObject("scripting.filesystemobject")
    Dim ParentFld
    Dim SubFld
    Dim IntCount
    Set ParentFld = fs.GetFolder(StrFolder)
        ' conto i file nella cartella corrente
    IntCount = ParentFld.Files.Count
    For Each SubFld In ParentFld.SubFolders
        ' conto tutti i file in ogni sotto cartella
        IntCount = IntCount + contaFile(SubFld.Path)
    Next
    ' restituisco il totale dei file
    contaFile = IntCount
End Function