FileListBox Omitir Extensiones de Archivos

[Ciberdanny]

Hola, estoy haciendo con un FileListBox y un DriveListBox comunes una lista de archivos y todo bien, pero quisiera que en la lista de archivos que resulta no me muestre las extensiones de estos archivos, ¿eso se puede? no se buscar en el textbox y eliminar todas las extensiones o que simplemente en el list box me muestre los archivos pero sin sus extensiónes.

Estoy haciendolo asi:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub


De antemano gracias...