提取文本框中的字符

Question

由于文本框中输入的时候习惯性的会输入回车键。所以我在提取文本框中的字符的时候，字符里如果有回车就会空一行。
比如我在文本框1中输入的是：“我很好”+回车。在文本框2中输入“星期五”。
当我提取这两个文本框中的字符，输入到记事本中的时候就会出现这样的情况：
我很好星期五
请问大家，怎么提取文本框中的内容，剔除掉回车键啊！
简单的说就是只提取字符内容！

Answer 1

如果是不需要任何回车符的就：
    Dim s$
    s = Replace(s, vbCrLf, "")如果是删除多余的空换行符就：
    Dim s$
    Do While InStr(s, vbCrLf & vbCrLf) > 0
        s = Replace(s, vbCrLf & vbCrLf, vbCrLf)
    Loop

Answer 2

a = Trim(Replace(a, vbCrLf, ""))