Visual Basic - forzar Extensiones

Hola amigos espero que me contesten este mensaje

miren tengo un listbox que me muestra archivos de una
carpeta X .como sabemos no tiene las propiedades de filter
o pattern entonces ¿como puedo forzarlo a que solo me muestra
archivos con extension txt .?

gracias amigos
jane
.

Sólo se me ocurre crear un procedimiento para comprobar si un archivo tiene extención .txt (en realidad no se si existan funciones especiales para ello, o APIs de windows). Aqui va:

Public Function Extención(Archivo As String, Ext As String) As Boolean
Dim i As Long
Dim vSt As Integer, vEn As Integer
For i = 1 To Len(Archivo)
If Mid(Archivo, i, 1) = "." Then vSt = i
Next i
vEn = Len(Archivo) - vSt
Extención = IIf(Mid(Archivo, vSt + 1, vEn) = Ext, True, False)
End Function

Puedes llamar a la función de la siguiente forma:
variable = Extención("Archivo.dll,"txt") '//Devuelve False
variable = Extención("Archivo.txt,"txt") '//Devuelve True

Suerte.
Mauro.