Hi Fred,
I can't reproduce this, but anyway,
how about putting the contents of the textbox
in a string and then using replace.
As far as I see, there are only three ways
of creating a line feed in a textbox:
ctrl-return, shift-return and ctrl-shift-return,
which result in vbcrlf and vblf.
Ok, like this:
Private Sub CommandButton1_Click()
Dim s As String
s = TextBox1.Text
' s = Replace(s, vbCr, " ") ?
s = Replace(s, vbCrLf, " ")
s = Replace(s, vbLf, " ")
Selection.TypeText Text:=s
End Sub
If that doesn't help, one could built a loop
and replace any character below 32 by " ".
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/