在文本框的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是回车加换行。