How can I set the cursor selected range, from a text box, as input?

I am using the following but it only returns the ENTIRE text from the box,
not
my cursor selected range in the Text Box.

tmpText$ = TextBox1.Text
MsgBox tmpText$