サンプルマクロは、Ａ１セルにマルチラインプロパティが真のテキスト
ボックスの値を入力します。
ユーザフォームのコードウインドに記述して実行してください。

Sub Sample()

    'Excel2000
    Range("A1").Value = _
        Replace(TextBox1.Value, vbCr, vbNullString)
    'Excel97
    'With Range("A1")
        '.Value = TextBox1.Value
        '.Replace vbCr, vbNullString
    'End With

End Sub