Textfeld und zeilenschaltung

[Helmut]

Habe es gelöst.
Text = Replace(Text, vbcrlf, "~")

einfach den Zeilen Vorschub entfernen und ein anderes Zeichen dafür gesetzt.