サンプルマクロは、ユーザフォームに配置したMultilineプロパティが
TRUEのテキストボックスの値をセルＡ１に代入します。
Excel2000ではReplace関数がないので、Replaceメソッドを使用する必要が
あります。
ユーザフォームのコードウインドに記述してください。

Sub Sample()

    'Excel2000の場合
    Range("A1").Value = _
        Replace(TextBox1.Value, vbCr, vbNullString)
    'Excel97の場合（Excel2000でも動作します）
    'With Range("A1")
        '.Value = TextBox1.Value
        '.Replace vbCr, vbNullString
    'End With

End Sub