Visual Basic - Visualizar nombre de archivos sin la extensión

Solicito a yuda para hacer rutina donde me muestro la lista de
archivos sin la extensión por Ejemplo: Hola.txt la idea es que no
aparesca la extensión "txt", con la rutina FileListBox, muestra la
extensión, con la rutina List.AddItem, da exatamente lo mismo y con
la rutina TextBox.Multiline, me registra el último archivo, asi que
no se como hacerlo si hay alguien tiene conocimiento de como se puede
hacer esta rutina me facilitaría el trabajo que estoy realizando Okk.-

para hacerlo con el list pone esto dentro del bucle
largo = Len(archivo)
pos = largo - (largo - InStr(archivo, ".")) - 1
list1.AddItem Left(File1.FileName, pos)