Estaba viendo las propiedades del FileListBox, pero no encontre una que permitiera ocultar las extensiones.
Podes agregar un ListBox y mirar el siguiente codigo.
Private Sub Command1_Click()
For i = File1.ListCount - 1 To 0 Step -1 'Desde File1.ListCount menos uno hasta 0
List1.AddItem Left(File1.List(i), Len(File1.List(i)) - 4), 0 'Se agrega el nombre del archivo en la posicion actual menos sus 4 ultimas letras
Next i
End Sub
Si la extension es de mas de 3 caracteres, entonces haz un split con el caracter ".", algo asi:
Nombre = Split(File1.List(i), ".")
if ubound(Nombre)=1 then
List1.AddItem Nombre(0), 0
end if
Saludos