Pues es facil,
abres el archivo en modo de escritura:
Suponiendo que tienes la lista list1
Código:
dim numfic as integer
dim archivo as string
dim i as integer
numfic=FreeFile
archivo="c:\archivo.txt"
Open archivo for output as numfic
for i=0 to (list1.ListCount-1)
if i <> list1.listindex then
Print #numfic, List1.list(i)
end if
Next
close numfic
Aunque una idea mucho mejor es:
primero eliminar el elemento y depsues guardar la lista.
me explico, tienes 3 botones, agregar, aliminar, guardar.
tanto si agregas palabras como si las eliminas de la lista, nos e gaurdan los cambios hasta k se le de al de guardar
y lo que ahces para eliminar es:
List1.removeitem (list1.Listindex)
y leugo el mismo codigo de arriba pero sin la comprobacion if dentro del for.