VB中，有没有可以接受从键盘输入的值的函数？

Question

比如我现在输入“我爱你们”，怎么接受到这个字符串？要中英文都可以接受的

Answer 1

用InputBox：
Private Sub Command1_Click()
    Dim str As String
    str = InputBox("请输入语句")
    MsgBox str
End Sub

Answer 2

哦，怪我没有说清楚
我是在一个TextBox中输入文字，在输入的过程中想得到一部分我想要的字符...
比如我输入“谢谢”后，光标在第二个谢的后面，现在我想得到这以后的字符，到某个字后，我又不想要了...我怎么得到这中间的字呢？

Answer 3

在这过程中，是通过键盘输入一个字得到一个字，而不是等RichTextBox中的字显示完后，再用鼠标选中再得到这些字符....

Answer 4

复制，粘贴我就不要花时间来这里求大家了
我现在在做一个这样的东西：
就是把RichTextBox里的一些文本转换成超文本格式
一种情况是，当用户选择了其中的一些文本，并把选中的文本改变字体后，我要在这部分文本输入数据库前转成超文本（这部分的文本，我可以用SelText属性得到）
第二种是，当用户改变了字体后，这时光标在文本的末尾，此时你每输入一个字，这个字就会成为选中的字体，那我怎么在用户再次改变字体前，得到先前所改变了的字体？不知说清楚了没？