在文本框的keypress事件里写代码。
 
private sub text1_keypress(KeyAscii   As   Integer)
    if keyascii = vblf then
        c=text1.text
    endif
end sub 
 
上面    if keyascii = vblf then 的条件判断，是否可行，需要你试一下。vblf可能要改成vbcr或者vbcrlf。
 
在vb里，常量vbcr对应回车键的ascii，就是10；常量vblf对应换行键的ascii，就是13；vbcrlf是回车加换行。