VB Code:
  1. Private Sub Text1_Change()

  2.  Text1.Text = Replace(Text1.Text, vbNewLine, "")

  3. End Sub
This
help?