dim Str as string
        If TextBox1.SelectedText = "" Then
            MsgBox("选择为空")
        else
            Str=textbox1.SelectedText
            msgbox(Str)
        End If

         我试过了。。。好像能用哈。。不知道你出了什么问题。。

selectedtext 是文本框中选择的文本内容

要程序选中所有的文本用SelectAll