Rem 界面一个编辑框一个按钮，小弟我希望单击按钮时能把编辑框中小弟我选择的内容显示出来。要如何改着代码

Rem 界面一个编辑框一个按钮，我希望单击按钮时能把编辑框中我选择的内容显示出来。要怎么改着代码？
Option   Explicit
Dim   strtmp   As   String

Private   Sub   Command1_Click()
        strtmp   =   Mid(Text1,   Text1.SelStart,   Text1.SelLength)
        MsgBox   strtmp
End   Sub


Rem   界面一个编辑框一个按钮，我希望单击按钮时能把编辑框中我选择的内容显示出来。要怎么改着代码？

------解决方案--------------------
Private Sub Command1_Click()
MsgBox Text1.SelText
End Sub

------解决方案--------------------
因为 mid 函数的第二个参数 要求从1开始，而不能为零，当选中第一个字符时候SelStart为0，程序会报错，选其它字符的时候会出现一个字符的偏差
在selstart 后面＋1就可以了

Private Sub Command1_Click()
strtmp = Mid(Text1, Text1.SelStart+1, Text1.SelLength)
MsgBox strtmp
End Sub


不过还是 MsgBox Text1.SelText 比较简便直观