todos los programas lo usan asi ¿ que tiene de malo? podes guardar en el registro de windows pero ya es medio feo. con un simple txt o archivo .ini lo podes hacer.

esa variable texto sacala porque no sirve para nada, no la estas usando en ningun lado, aparte la estas igualando al StartsWith que devuelve un boolean no un string.

y sacale el Contains() tambien porque si despues abajo usas el StartsWith, estas usnado 2 cosas casi iguales.

por ejemplo si tenes el texto "holaaaaaaaa", el contains va a devolver verdadero, pero el StartsWith devuelve falso y el texto te va a quedar igual, yo directamente usaria una sola linea con Replace y listo, no importa si empieza o termina con el "" que lo reemplaze en cualquier lado de la cadena que este.

el codigo te queda una sola linea.

igual la razon de la que te guarda ese "" para mi es el tema de grabacion del archivo, porque no probas los metodos que te puse antes de grabacion, probalos total no cuesta nada.

y lo que nunca digiste es si ese "" al abrir el archvio de texto con el bloc de notas ves esos caracteres raros.

la propiedad se llama StartsWith no StartWith, te falta la "s". 

si, le erre al quoteo

fijate esto:

How to restrict access to phpmyadmin? [closed]

How to secure phpMyAdmin

¿ el archivo de host ?

hay varias cosas para corregir, parece que estas programando a la visual basic 6.

1 - no se porque usas para controlar los errores el On Error GoTo, en .NET se usa Try Catch.

2 - para abrir y guardar los archivos te recomiendo usar StreamReader y StreamWriter, que son unicos de .NET y son los que se usan.

para cargar al listbox hay varios metodos, algunos te dejan hacerlo sin estar recorriendo linea por linea el archivo.

aca te paso 2 metodos de carga, bien de .NET, y un metodo de guardado:

Imports System.IO
 
Public Class Form1
    ' Carga todo en una sola linea
    Private Sub MetodoCarga1()
        ListBox1.Items.AddRange(File.ReadAllLines("C:\prueba.txt"))
    End Sub
 
    ' Carga usando StreamReader, linea por linea hasta el final del archivo
    Private Sub MetodoCarga2()
        Dim vArchivo As New StreamReader("C:\prueba.txt")
 
        While Not vArchivo.EndOfStream
            ListBox1.Items.Add(vArchivo.ReadLine())
        End While
 
        vArchivo.Close()
    End Sub
 
    ' Guarda usando StreamWriter
    Private Sub MetodoGuardado()
        Dim vArchivo As New StreamWriter("C:\prueba.txt")
 
        For Each vLinea As String In ListBox1.Items
            vArchivo.WriteLine(vLinea)
        Next
 
        vArchivo.Flush()
        vArchivo.Close()
    End Sub
End Class

+1

la solucion no es reemplazar los caracteres, la solucion debe ser ver porque te esta grabando esos caracteres, hace estas 2 simples cosas.

1 - fijate si el archvio de texto creado tiene realmente esos caracteres grabados, abrilo con el bloc de notas y fijate.

2 - pone el codigo fuente que usas para grabar y cargar el archivo, me juego que ahi esta el problema.

sin codigo no podemos ver que estas haciendo.

algo mal debes estar haciendo, porque te tiene que funcionar, pone el codigo que usas y lo vemos.


tambien esta la funcion EndWith .