Si los símbolos raros siempre son dos caracteres y al principio de cada línea, puedes hacer algo así:
Código:
Do While Not EOF(1)
Line Input #1, sLinea
If sLinea <> "" Then
' eliminamos los dos primeros caracteres
sLinea = Right(sLinea, Len(sLinea) - 2)
' sustituimos || por espacios
sLinea = Replace(sLinea, "||", " ")
Text1 = Text1 & sLinea & vbNewLine
End If
Loop
