Private Sub DirToVariantVectorSample()
    ' Sample of the DirToVariantVector function.

    Dim avarFiles() As Variant
    If DirToVariantVector(avarFiles(), "[ET]*.*", vbTextCompare, True, True, False, True, vbNormal, True) Then
        Dim lngCur As Long
        For lngCur = 1 To UBound(avarFiles)
            Debug.Print lngCur & ": " & avarFiles(lngCur)
        Next lngCur
    End If
End Sub