如何通过按钮将字符插入到文本框指定位置中？

问题：

1：如何获得光标离开文本框前在文本中的位置；

2：向文本框指定位置插入或修改字符。

要实现类似下面的操作，请问如何设置？

解决了。

‘在全局变量设置字符型变量“hkt“，”hjm“

\'文本框Leave事件

Dim s As String = e.Sender.text

If s = Nothing Then

Else

    vars("hkt") = left(s,e.sender.Selectionstart) \'前半部分

    vars("hjm") = right(s,len(s)-e.sender.Selectionstart-e.sender.SelectionLength) \'后半部分

End If

\'按钮事件Click

Dim s As String = "来"  \'要输入的值

If e.Form.controls("TextBox1").value = Nothing Then

    e.Form.controls("TextBox1").value = s

Else

    e.Form.controls("TextBox1").value = vars("hkt") & s & vars("hjm")

End If

vars("hkt") = vars("hkt") & s