Originariamente inviato da oregon
Il carattere e' letto dalla OpenURL. Lo devi eliminare dalla stringa

Text1.Text = Replace(IIP, Chr$(10), "")

Ovviamente se ce ne sono altri, come il Chr$(13), puoi effettuare la stessa operazione.

Oppure, se sono sempre alla fine della stringa, puoi usare la Left$ per eliminarli, ovvero

Text1.Text = Left$(IIP, Len(IIP) - 1)

usando -1 o -2 secondo quanti caratteri vuoi eliminare.

Devi semplicemente operare con le funzioni base di gestione delle stringhe.
Ok!!
grande oregon!!
problema risolto.
Text1.Text = Replace(IIP, Chr$(10), "")