Visual Basic 6 - Combo1

Ciao!!
Allora, io ho un form con 1 pulsante e una combo, chiamata combo1. Grazie a..:

Private Sub Command1_Click()
On Error Resume Next
Open "C:\prova.txt" For Input As 1
Do
Input #1, linea
Combo1.Text = Combo1 & linea & vbCrLf
Loop Until EOF(1) = True
Close #1
Exit Sub
End Sub

..carico nella combo1 quello che c'è scritto in prova.txt (mettiamo ke ci sia scritto, si).
Quindi grazie a questo codice nella combo1 viene visualizzato il contenuto di prova.txt e quindi quando si preme il pulsante verrà visualizzato si.
Però invece che solo si viene visualizzato Si con l'accapo, quindi il si con due || (stanghette).
Come posso fare x visualizzare solo si??

mi spiace nn posso aiutarti
ho provato in tutti i modi anche col tuo codice ma nn mi visualizza il file così com' è
magari le 2 staghette sono proprio nel file

cmq se proprio il problema persiste puoi usare la procedura replace:
replace(combo1,"||",""
così al posto delle stanghette c'è (niente)

Grazie x l'aiuto, cmq replace nn andava bene xkè le 2 stanghette sarebbero l'accapo e quindi teoricamente dovrei scrivere:

Combo1.Text = Replace(Combo1, "
", ""

ma nn si può xkè viene segnalato sbjato.
Ma ho capito come fare x nn visualizzare le due stanghette.
Lo spiego x tutti, prima nel codice scrivevo:

Open "C:\prova.txt" For Input As 1
Do
Input #1, linea
Combo1.Text = Combo1 & linea & vbCrLf
Combo1.Text = Replace(Combo1, "", "")
Loop Until EOF(1) = True
Close #1
End Sub

ecco poi come l'ho modificato:

Open "C:\prova.txt" For Input As 1
Do
Input #1, linea
Combo1.Text = Combo1 & linea
Combo1.Text = Replace(Combo1, "", "")
Loop Until EOF(1) = True
Close #1
End Sub

Spero ke hai capito, cmq mi appare piuttosto evidente dove ho modificato.

Cmq grz ancora x avermi provato ad aiutare.

prego...

cmq puoi usare il replace anche con l' accapo: inquesto modo: replace(string,vbcrlf,sostituente)
ti protrà servire

prova con questo codice
l=freefile
Open "C:\prova.txt" For Input As #1
while not eof(l)
line Input #1, linea
Combo1.text= Combo1 & linea & chr(13)
wend
Close #1
End Sub

..OK..
Grazie a tutti quelli ke mi hanno aiutato!!