Visual Basic - Como quito las extensiones en una FileListBox

Amigos, pueden decirme como hago eso. Tengo un FileListBox pero no quiero que me muestre las extensiones de los archivos (ya están filtradas, son solo jpgs) sino que solo el nombre.

Muchas gracias

Debes ubicar donde esta el punto y tomar los caracteres de la izquierda:
NameFile$=fileList.List(i%) ´ Nombre completo del archivo
punto%=instr(NameFile$)
if punto%>0 then
RaizName$=left$(NameFile$,punto%-1) ' Nombre sin la extension
end if

No sé qué estoy haciendo mal... pero la linea 2 me sale con error

Compile error:
Expected: List separator

No entiendo...