[VBA] Eliminare caratteri ASCII caricati da file esterno

[Al_adin]

Help Me please !
Premetto che sono un pivello della progarammazione.
Con il VBA ho realizzato una macro in WORD. Ho usato un form su cui ho disposto diversi controlli.
In particolare ho inserito una ListBox che carica automaticamente le righe di un file non appena si seleziona un OptionButton. Per aprire il file e leggere le righe ho usato questo codice:
Private Sub OB1CL2_Click()
Dim Righe As String
Dim i As Integer ' indice
Open "C:\1partec.txt" For Input As #1
Do ' ciclo do loop
i = i + 1
Input #1, Righe
ListBox1.AddItem Righe
Loop Until EOF(1) = True
Close #1
End Sub

Tuttavia nella 1 riga della ListBox mi compaiono dei caratteri che non sono presenti nel file di testo.
La riga originale nel file di testo è: L’antenna non capta il segnale

quando la ListBox carica le righe del file automaticamente vengono aggiunti altri caratteri, di seguito la stringa caricata dalla ListBox:

ÿþL antenna non capta il segnale

i primi due sono i caratteri ASCII 222 e 255 poi c’è la L e al posto dell’apostrofo compare il carattere ascii 195, che qui non si vede, il resto rispecchia la stringa. Questa stringa quando selezionata viene copiata in una TextBox per poter essere stampata.
Come faccio ad eliminare i caratteri in più ?

Grazie.

[oregon]

Solo per la prima riga

ListBox1.AddItem Mid$(Righe, 3)

P.S. Occhio al regolamento

[Al_adin]

Grazie Oregon, ho provato il codice che mi hai postato, ma questo mi taglia le prime tre lettere di tutte le righe.

[CODE]

Private Sub OB1CL2_Click()
Dim Righe As String
Dim i As Integer
Open "C:\ 1partec.txt" For Input As #1
Do
i = i + 1
Input #1, Righe
ListBox1.AddItem Mid$(Righe, 3)
Loop Until EOF(1) = True
Close #1
End Sub

[\CODE]

Devo eliminare i primi 4 caratteri – solo dalla prima riga – della ListBox e questi devono essere sostituiti con
L’ - solo nella prima riga in modo che la stringa
ÿþL antenna non capta il segnale
diventi
L’antenna non capta il segnale

Ho provato così

[CODE]

Private Sub ListBox1_Click()
Dim Partec As String
Partec = ListBox1.Text
TextBox1.Text = TextBox1.Text - “ÿþL ” + " " + Partec
End Sub

[\CODE]

Ma non funziona. Dove Sbaglio ?

Grazie ciao